Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(Quelldatei)
DB.Execute "INSERT INTO NeueKundenTabelle IN '" & zieldatenbank & "' SELECT" & _
  "Kunden.* FROM Kunden;"
DB.Close
Set DB = Nothing

    ' Index bzw "ID" Autowert wird immer ignoriert! Daher start mit 1
    For i = 1 To rstArtikel.Fields.Count - 1
      If IsNull(rstArtikel.Fields(i).value) = False Then rstErgo.Fields( _
        i).value = rstArtikel.Fields(i).value
    Next i