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