VB6

Ms Access

With DBSchede
.ConnectionString = "Driver=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\db\SCHEDE.mdb"
.Open
.CursorLocation = adUseClient
End With