Public Sub kopiere_Tabelle(ByVal datenbank As String, ByVal Org_Tab As String, _
  ByVal Kop_Tab As String)
Dim DB As DAO.Database
 
Set DB = Workspaces(0).openDataBase(datenbank, False, False)
 
DB.Execute "SELECT * INTO " + Kop_Tab + " FROM " + Org_Tab
DB.Close
 
End Sub

myConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
  & Datenbank & ";Jet OLEDBDatabase Password=" & Passwort & ";"
 
myConnection.Open()

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!