<code><font color=green>' Daten nach Access übernehmen</font>
Dim Rs As Recordset
Dim SQL As String
Dim strKdNr As String
 
While Not TabDBase.EOF
  <font color=green>' zunächst prüfen, ob der Datensatz bereits 
  ' vorhanden!</font>
  strKdNr = TabDBase("KdNummer")
  SQL = "SELECT KdNummer FROM AccessTabelle WHERE " & _
    "KdNummer = '" & strKdNr & "'"
  Set Rs = dbAccess.OpenRecordset(SQL, dbOpenSnapshot, dbOpenForwardOnly)
  If Rs.RecordCount = 0 Then
    <font color=green>' noch nicht vorhanden!</font>
    TabAccess.AddNew
    For I = 0 To TabDBase.Fields.Count - 1
      TabAccess(I) = TabDBase(I)
    Next I
    TabAccess.Update
  End If
  Rs.Close
  Set Rs = Nothing
 
  TabDBase.MoveNext
Wend</code>