Dim sSql as string
Dim RS as ADODB.Recordset
Dim db as ADODB.Connection
 
  sSQL = "SELECT P_Anrede, P_Name, P_Vorname, P_Strasse, P_HNr, P_PLZ, P_Ort, " _
    + _
    "P_Telefon, P_Mobil, P_Email, P_GebDatum, P_Position FROM person"
 
Set db = New ADODB.Connection
With db
    .CursorLocation = adUseClient
    .Mode = adModeShareDenyNone
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = App.Path & "\fussball.mdb"
    .Open
End With
Set RS = New ADODB.Recordset
With RS
    .ActiveConnection = db
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = sSQL & " WHERE [P_Vorname] LIKE 'M*'" 
    .Open
End With