Dim sql As String
Dim sDatumVon As Date
Dim sDatumBis As Date
sDatumVon = CDate(DTPicker1)
sDatumBis = CDate(DTPicker2)
Dim db As Database
Dim sFile As String
sFile = "c:\Franke\Data\Franke.mdb"
Set db = DBEngine.OpenDatabase(sFile, False, False)
sql = "INSERT INTO Frachtverfolgung IN" & _
  "'c:\Franke\Data\Archivierung\Archivierung.mdb' SELECT Frachtverfolgung.*" & _
  "FROM Frachtverfolgung "
sql = sql & "WHERE (((Frachtverfolgung.Datum) Between #" & Format$(sDatumVon, _
"m-d-yy") & "# And #" & Format$(sDatumBis, "m-d-yy") & "#) AND ((" & _
"Frachtverfolgung.Auftrag_Komplett) LIKE True))"
db.Execute sql

Frank