Dim oDB1 As Database
Dim oRs1 As Recordset
Dim oDB2 As Database
Dim oRS2 As Database
Dim i As Long
 
' Ausgangstabelle öffnen und Datensatz suchen
Set oDB1 = DBEngine.OpenDatabase("Datenbank1.mdb")
Set oRs1 = oDB1.OpenRecordset("Tabelle")
oRs1.FindFirst "Feld = ..."
 
' Ziel-Tabelle öffnen
Set oDB2 = DBEngine.OpenDatabase("Datenbank2.mdb")
Set oRs2 = DB2.OpenRecordset("Tabelle")
 
' Datensatz kopieren
oRs2.AddNew
For i = 0 To oRs1.Fields.Count - 1
  oRs2.Fields(i) = oRs1.Fields(i)
Next i
oRs2.Edit

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de