Dim rs as recordset
  'Tabelle als Dynaset öffenen
  set rs = DB.OpenRecordset("Kontakt", dbopensnapshot)
  'und alle Einträge auslesen
  do until rs.eof
    debug.print rs!User, rs!Person
    rs.movenext
  loop
 
  'Tabelle als SQL öffnen
  set rs = DB.OpenRecordset("Select User, Person FROM Kontakt", dbopensnapshot)
  'und alle Einträge auslesen
  do until rs.eof
    debug.print rs!User, rs!Person
    rs.movenext
  loop
 
  set rs = nothing