Open "C:\pfad.txt" for input As #1
Do While Not EOF(1)
      Input #1, strpfad
 
strsql = "INSERT INTO [tbl_KO] (Zeichen, KNr, Partei) & _
            IN '" & strpfad & "ko.mdb" & "' " &_
            SELECT DISTINCT " &_
            ZA, KNr, PP " &_
            FROM [tbl_KO_old] IN '" & strpfad & "ko_old.mdb" & "'; "
 
CurrentDb.Execute strsql
 
Loop
Close #1

Dim db As DAO.Database
Dim rst As DAO.Recordset
 
set db = Opendatabase(MDB)
set rst = db.OpenRecordset(Tabelle, dbOpenDynaset)
 
If Not rst.BOF Then
        rst.MoveLast
        debug.Print rst.RecordCount
End if

Danke und Gru?,
DREAM