Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sDBName As String
Dim sDaten As String
Dim oConn As ADODB.Connection
Dim oConnAlt As ADODB.Connection
Dim rsNew As ADODB.Recordset
Dim rsOrig As ADODB.Recordset
Dim F As ADODB.Field
Dim a As Variant
 
' Instanzierung des Objekts
Set oConn = New ADODB.Connection
Set oConnAlt = New ADODB.Connection
Set rsNew = New ADODB.Recordset
Set rsOrig = New ADODB.Recordset
 
' Server Hostname (oder IP)
sServer = "localhost"
sUserName = "root"
sPassword = "marder"
sDBName = "stammdaten"
sConn = "Provider=MSDASQL;Driver=MySQL;" & "Server=" & sServer & ";Database=" & _
  sDBName
 
sDaten = "stammdaten.mdb"
 
' Connection öffnen
oConn.Open sConn, sUserName, sPassword
oConnAlt.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sDaten & _
  ";User Id=admin;" & "Password="
 
'##### hier alle Tabellen eintragen, weiß im moment die Systemtabellen der 
' MySQL DB nicht
Dim sTabellen As String
sTabellen = "Test"
Dim sTables() As String
sTables = Split(sTabellen, ";")
 
'Ich gehe davon aus das die Tabellen bereits existieren
 
'Tabelle löschen
rsNew.Open "DROP TABLE Test", oConn
'Tabelle erstellen
rsNew.Open "CREATE TABLE Test(id smallint NOT NULL, so smallint, soso" & _
  "smallint)", oConn
 
'Datenbank synchronisieren
Dim I As Integer
For I = 0 To UBound(sTables)
  'Für jede Tabelle
  oConn.Execute "DELETE FROM " & sTables(I) 'Zu füllende Tabelle leeren 
  ' !!Ausführende Commandos immer mit Execute
  rsOrig.Open "SELECT * FROM " & sTables(I), oConnAlt, adOpenDynamic, _
    adLockOptimistic
  rsNew.Open "SELECT * FROM " & sTables(I), oConn, adOpenDynamic, _
  adLockOptimistic
  'Tabelle kopieren
  Do While rsOrig.EOF = False
    rsNew.AddNew
    For Each F In rsOrig.Fields
       If IsNull(rsOrig.Fields(F.Name)) = False Then
         'Dim a As Integer
         rsNew.Fields(F.Name) = a
         Dim a As Integer
         a = rsOrig.Fields(F.Name)
       End If
    Next
    rsNew.Update
    rsOrig.MoveNext
  Loop
  rsOrig.Close
  rsNew.Close
Next I