Set con = CreateObject("ADODB.Connection")
    Set records = CreateObject("ADODB.Recordset")
    con.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "Safine.mdb")
 
    With records
        .ActiveConnection = con
        .CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Source = "Select * FROM Kunden order by kundennummer"
        .Open
    End With
 
    sql_str = "select * from Kunden where kundennummer= '" & datNum & "'"
    Set records = con.Execute(sql_str)
 
 
    If (records.EOF = False Or records.BOF = False) Then 
        records.Delete' Laufzeitfehler '3251'
    End If