'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
         rsNew.Fields(F.Name) = rsOrig.Fields(F.Name)
       End If
    Next
    rsNew.Update
    rsOrig.MoveNext
  Loop
  rsOrig.Close
  rsNew.Close
Next I