Dim sPath AS String
sPath = App.Path & "\lieferprog.mdb"
    Set Cn = New ADODB.Connection
    With Cn
        .Mode = adModeShareDenyNone
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = sPath
        .Open
    End With
 
    Set RS = New ADODB.Recordset
 
    With RS
        .ActiveConnection = Cn
        .CursorLocation = adUseClient
        .LockType = adLockBatchOptimistic
        .Source = ("SELECT * FROM Kundenumsatz")
        .Open
 
    End With

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD