Dim db As DAO.Database
 Dim rst As DAO.Recordset
 Dim strSQL As String
 
 strSQL = "SELECT tblPersonen.P_ID,  ... (lange Abfrage) ..."
 
 
 Set db = CurrentDb
 Set rst = db.OpenRecordset(strSQL, adOpenDynamic, dbSeeChanges)