<code>Dim DbNeu As Database
Dim RsNeu As Recordset
Dim I As Integer
 
Set DbNeu = Workspaces(0).OpenDatabase("NeueMDB.mdb", False, False)
Set RsNeu = DbNeu.OpenRecordset("SELECT * FROM TabellenName")
 
<font color=green>' Öffnen der alten Datenbank</font>
Dim DbAlt As Database
Dim RsAlt As Recordset
 
Set DbAlt = Workspaces(0).OpenDatabase("AlteMDB.mdb", False, False)
Set RsAlt = DbAlt.OpenRecordset("TabellenName")
 
<font color=green>' Alle Datensätze der alten Tabelle durchlaufen</font>
While Not RsAlt.Eof
  <font color=green>' Prüfen, ob Datensatz in neuer Datenbank vorhanden</font>
  RsNeu.FindFirst "fldName LIKE '" + RsAlt("Feld_name") + "'"
 
  If Not RsNeu.NoMatch Then
    <font color=green>' wenn vorhanden: Eintrag editieren</font>
    RsNeu.Edit
  Else
    <font color=green>' sonst.: Eintrag hinzufügen</font>
    RsNeu.AddNew
  End If
 
  <font color=green>' Datensatz übertragen</font>
  With RsAlt
    For I = 0 To .FieldsCount - 1
      RsNeu(I) = RsAlt(I)
    Next
  End With
 
  <font color=green>' Datensatz speichern</font>
  RsNeu.Update
 
  RsAlt.MoveNext
Wend
RsAlt.Close: DbAlt.Close
Rs.Neu.Close: DbNeu.Close</code>