Access - Datensatz bei MySQL-ODBC Verbindung weiterschalten

Private Sub sFNaehsterDS_Click()
  
  'die Variablendefinitionen sind global in einem Modul  
  
  conn = "DRIVER={MySQL ODBC 5.2a Driver}; SERVER=localhost; " & _  
          "DATABASE=adressen; UID=root; OPTION=3"  
   
   Set db = New ADODB.Connection
   
   
   db.ConnectionString = conn
   
   Set rs = New ADODB.Recordset
   
   db.Open
   
   'rs.CursorLocation = adUseClient  
   
   'Existiert der Benutzer?  
   sql = "SELECT ID, Benutzername, EMail, Passwort FROM zugang"  
   rs.Open sql, db ', adOpenDynamic, adLockOptimistic  
   'rs.MoveFirst  
   Me.ID.SetFocus
   Me.ID.Text = rs.Fields("ID")  
   Me.Benutzername.SetFocus
   Me.Benutzername.Text = rs.Fields("Benutzername")  
   Me.EMail.SetFocus
   Me.EMail.Text = rs.Fields("EMail")  
   Me.Passwort.SetFocus
   Me.Passwort.Text = rs.Fields("Passwort")  
   If Not rs.EOF() Then
   rs.MoveNext
   End If
End Sub