Dim DB As Database
 
'Datenbank öffnen
Set DB = Workspaces(0).OpenDatabase(strFromDBFile, False, False, "MS" & _
  "Access;pwd=" & strDBPassword)
 
DB.Execute "SELECT * INTO [" & strDBFile & "].[" & strTableName & "] FROM [" & _
  strTableName & "]"
 
'Datenbank schließen
DB.Close
Set DB = Nothing