Dim con As New ADODB.Connection
  Dim result As New ADODB.Recordset
  Dim query As String
 
  Set con = CurrentProject.Connection
 
  query = "SQL-Anweisung(SELECT)"
 
  result.Open query, con, 1
 
  Do While Not result.EOF
    ...
    result.MoveNext
  Loop
 
  result.Close
  con.Close

   query = "SQL-Anweisung(INSERT/UPDATE/DELETE)"
   DoCmd.RunSQL (update)