Ich will das Ergebnis einer SQL Abfrage einem Kombinationsfeld zuweisen.
Die Datenabfrage funktioniert. Im Recordset rs speichere ich das Ergebnis und will es dann in der Zeile "FreieLager.Recordset = rs" dem Kombinationsfeld zuweisen.
Beim Ausführen bekomme ich aber dann den Fehler "Objektvariable oder With-Blockvariable nicht festgelegt"

was mach ich da falsch oder funktioniert das jetzt under Windows XP prinzipiell anders? Denn die Änderung das man jetzt DAO vor Database schreiben muss ist für mich auch neu

Private Sub FreiLagerPlätze_Click()
Dim Anwendung As DAO.Database
Dim rs As DAO.Recordset

Set Anwendung = CurrentDb

Set rs = Anwendung.OpenRecordset("SELECT Reihe FROM Lager" & Lager & "
where Kapazität>" & Kartongröße)
FreieLager.Recordset = rs
FreieLager.Requery
Me.Requery

End Sub

mfg Digga