'etwas Code mit DAO
dim strReturn as string 
 
Dim db As Database, qd As QueryDef, rs As Recordset
Set db = CurrentDB()
Set qd = db.querydefs("MeineAbfrage")
qd!Vorname = "Bill"
Set rs = qd.OpenRecordset(dbOpenSnapshot, dbForwardOnly)
 
If Not (rs.bof And rs.eof) Then 
   strReturn = rs!Nachname
End If
 
 
rs.Close:set rs = nothing
qd.Close:set qd = nothing
db.Close:set db = nothing
 
debug.print strReturn  ' -> "Gates"