Dim SQL As String
Dim sName As String
sName = "Meisberger"
 
SQL = "SELECT * FROM N00001 as N WHERE N.Name like '" & sName & "'"
Set RecSet = db_DataBase.OpenRecordset(SQL)
 
While Not RecSet.EOF
    Debug.Print RecSet!Name
    RecSet.MoveNext
Wend