Option Explicit
Private myDB As Database

Private Sub Form_Load()
  Set myDB = DBEngine.OpenDatabase("DeineMDB.mdb")
End Sub

Private Sub Command1_Click()
  Dim Rs As Recordset
  Dim SQL As String
 
  SQL = "SELECT * FROM DeineTabelle WHERE Name LIKE '" & txtName.Text & "*' " & _
    " AND Vorname LIKE '" & txtVorname.Text & "*' ORDER BY Name, Vorname"
 
  Set Rs = myDB.OpenRecordset(SQL)
  If Rs.RecordCount > 0 Then
    While Not Rs.Eof
      ...
      Rs.MoveNext
    Wend
  Else
    MsgBox "Keine passenden Datensätze gefunden!"
  End If
  Rs.Close
  Set Rs = Nothing
End Sub

Private Sub Form_Unload()
  myDB.Close
  Set myDB)= Nothing
End Sub