dim qdf as (dao.<--?)querydef
dim rst as     "   recordset
 
set qdf=CodeDb.QueryDefs("NAMEdeinerABFRAGE"(oder vieleicht geht auch direkt _
  der sql-string???keine ahnung))
Set rst= qdf.OpenRecordset(dbOpenSnapshot, ???dbSeeChanges???)
       qdfRaster.Close 'direkt hier!!!!!!!!!!!!!!!!!!!!!!
   ....dein code