ADO login Help

[Zulander]

Hello i am have a error when i log on to Access ?
Public db As Connection
Public RS As Recordset
......

Set db = New ADODB.Connection
db.Provider = "microsoft.jet.oledb.3.51"
db.Open GetSetting("Carnet", "Controls", "MDBPath"), "ADMIN", "123"
Set RS = New ADODB.Recordset
RS.Open "tabel1", objADOCN, , , adCmdTable

[G.Kumaraguru]

I think that should be

db.Provider = "microsoft.jet.oledb.3.51;UID=ADMIN;Pwd=123;"

I am Not sure of this..

[bar]

What error are you getting, are you using a database password or Access Users & Groups?

[Zulander]

WEll this is the connection with DAO :
Set Db = DBEngine.Workspaces(0).OpenDatabase(GetSetting("Carnet", "Controls", "MDBPath"), False, False, "MS Access;PWD=123")
Set Rs = Db.OpenRecordset("Phone", dbOpenDynaset)
and work's perfectly what would it be in ADO?