Private Sub Ma_Nummer_LostFocus()
Dim db As Database, rs As Recordset, qd As QueryDef, sql As String, eingabe As _
  Variant
 Set db = CurrentDb
 
eingabe = [Ma-Nummer]
 
'Abfrage erzeugen
sql = "SELECT * FROM ma_nummmer WHERE [Ma-Nummer]=" & eingabe & " AND" & _
  "[Ausgeschieden]='Nein';"
Set qd = db.CreateQueryDef("nummer", sql)
 
'Hier tritt der Fehler auf
Set rs = db.OpenRecordset("nummer") 
 
Debug.Print rs![Vorname]
Debug.Print rs![Name]
 
'Abfrage löschen
db.QueryDefs.Delete ("nummer")
End Sub