' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim AccessDB As ADODB.Connection
Dim AccessRS As ADODB.Recordset
Dim DBaseDB As ADODB.Connection
Dim DBaseRS As ADODB.Recordset
 
Private Sub Command1_Click()
 
DBaseDB.Execute "Delete * From Gutschr"
 
Do Until AccessRS.EOF
 DBaseRS.AddNew
 DBaseRS!An = AccessRS!Nr
 DBaseRS!Bet = AccessRS!Betrag
 DBaseRS.Update
 AccessRS.MoveNext
Loop
 
End Sub
 
Private Sub Form_Load()
 
Set AccessDB = New ADODB.Connection
AccessDB.CursorLocation = adUseClient
AccessDB.Provider = "Microsoft.Jet.OLEDB.4.0"
AccessDB.Open "d:\Rechnung.mdb"
Set AccessRS = New ADODB.Recordset
AccessRS.Open "SELECT * FROM Gutschrift", AccessDB, adOpenDynamic, _
  adLockOptimistic
 
Set DBaseDB = New ADODB.Connection
DBaseDB.CursorLocation = adUseClient
DBaseDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBase" & _
  "IV;Data Source=D:\"
Set DBaseRS = New ADODB.Recordset
DBaseRS.Open "SELECT * FROM Gutschr", DBaseDB, adOpenDynamic, adLockOptimistic
' Falls Index vorhanden
' DBaseRS.Index = "D:\DeinIndex.ndx"
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
AccessRS.Close
AccessDB.Close
DBaseRS.Close
DBaseDB.Close
 
Set AccessRS = Nothing
Set AccessDB = Nothing
Set DBaseRS = Nothing
Set DBaseDB = Nothing
 
End Sub