Φίλτρο σε ...σύνθετο πλαίσιο!

Καλησπέρα σας...

...Στη εφαρμογή εμφανίζω μια φόρμα Α που πατά πάνω σε ένα πίνακα 'Μαθητές'. Σε αυτή τη φόρμα έχω ενα σύνθετο πλαίσιο το οποίο στην ιδιότητα 'Προέλευση γραμής' περιέχει την παρακάτω εντολή:

SELECT Μαθητές.[ID5], Μαθητές.Επιθετο FROM Μαθητές WHERE Μαθητές.ID1=var1 ORDER BY Μαθητές.Επιθετο;

Σκοπός αυτού του πλαισίου ειναι να εμφανίζει τα επίθετα μαθητών που υπάρχουν στον πίνακα 'Μαθητές' και να ειναι συντονισμένο με τις εγγραφές που εμφανίζει η φόρμα.
Όταν ανοίγει η φόρμα Α ενεργοποιείται ένα φίλτρο :

Private Sub Form_Load()
var1 = DLookup("[ID1]", "Προγράμματα", "[Τιτλος]= '" & progr & "'")
Me.Filter = "[ID1]= " & var1
Me.FilterOn = True
End Sub

Το πρόβλημα:
Το σύνθετο πλαίσιο ΔΕΝ διαβάζει την μεταβλητή var1.


Με εκτίμηση σε όλα τα παιδιά και ιδιαίτερα στον Κωνσταντίνο πού ολοένα πλησιάζει στο Club των ...παντρεμένων! Τις ευχές μου φίλτατε

O Meteora