Set CnAccess = New ADODB.Connection
CnAccess.CursorLocation = adUseServer
CnAccess.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & sPassword
CnAccess.Open "Data Source=" & sPath
Visual Basic:
Set CnAccess = New ADODB.Connection
CnAccess.CursorLocation = adUseServer
CnAccess.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & sPassword
CnAccess.Open "Data Source=" & sPath
Сейчас этот форум просматривают: Google-бот и гости: 1