Dim MSAccess As Access.Application
Dim fso As New FileSystemObject
Set MSAccess = CreateObject("Access.application")
If fso.FileExists(Pfadaccess & nameaccess) = True Then
Kill (Pfadaccess & nameaccess)
End If
MSAccess.NewCurrentDatabase (Pfadaccess & nameaccess)
MSAccess.DoCmd.TransferDatabase acImport, "ODBC-Datenbank", "ODBC;DSN=iMentor", _
  acTable, "AdAdr", "AdAdr", False
MSAccess.CloseCurrentDatabase

Dim Db As Database
Dim dbFile As String
Dim Index As New Index
dbFile = Pfadaccess & nameaccess
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
'Index für AdAdr setzen
Index.Name = "Nr"
Index.Primary = False
Index.Unique = False
Index.Fields = "Nr"
'Hinzufügen zur Indexes-Auflistung
Db.TableDefs("AdAdr").Indexes.Append Index
Set Index = Nothing

If autobeenden = 1 Then
starttime = Timer
Do While Timer < starttime + 5
countdown = starttime + 5 - Timer
status.Caption = "Noch " & countdown & " Sekunden bis das Programm beendet wird"
DoEvents
Loop
End
End If