DB2.CursorLocation = adUseClient
DB2.Provider = "Microsoft.Jet.OLEDB.4.0"
DB2.Open "DATA.MDB"
 
RS1.Open "select * from Tabelle1", DB2, adOpenDynamic, adLockOptimistic
 
Set cmd = New ADODB.Command
cmd.CommandType = adCmdText
cmd.ActiveConnection = DB2
 
cmd.CommandText = "SELECT * INTO [dBase" & _
  "IV;database=F:\Datenbank\VB\Test2\].[TAB1.dbf] FROM Tabelle1"      ', False
cmd.Execute

cmd.CommandText = "INSERT INTO TAB1.dbf select * FROM Tabelle1"