Dim DB As Connection
Dim Datum As String
 
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\Watch\Deine.mdb"
 
Datum = Replace("A" & CDate(Date), ".", "")
 
On Error Resume Next
DB.Execute "DROP TABLE AA" ' Tabelle AA löschen
DB.Execute "SELECT * INTO AA FROM A" ' Tabelle AA erstellen und mit A füllen
DB.Execute "SELECT * INTO " & "[" & Datum & "]" & " FROM A" ' Tabelle A17112004 
' erstellen und mit A füllen
DB.Execute "DROP TABLE A" ' Tabelle A löschen
DB.Execute "SELECT * INTO A FROM AA" ' Tabelle A erstellen und mit AA füllen
 
Datum = Replace("B" & CDate(Date), ".", "")
 
DB.Execute "DROP TABLE BB" ' Tabelle BB löschen
DB.Execute "SELECT * INTO BB FROM B" ' Tabelle BB erstellen und mit B füllen
DB.Execute "SELECT * INTO " & "[" & Datum & "]" & " FROM B" ' Tabelle B17112004 
' erstellen und mit B füllen
DB.Execute "DROP TABLE B" ' Tabelle A löschen
DB.Execute "SELECT * INTO B FROM BB" ' Tabelle B erstellen und mit BB füllen