Companheiros, peguei essa rotina de acesso a 1 bd ACCESS 2000.
Gostaria de colocar senha no banco só que não estou conseguindo.
Como ficaria a minha string com senha
Tentei usar na linha .open, uid="adm", pwd="1234" e dá erro de no acesso
Public Sub conecta_bd()
Set conn = CreateObject("Adodb.connection")
With conn
.CursorLocation = adUseClient ''adUserclient
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & App.Path & "LOJA.MDB"
.Open
End With
Exit Sub
End Sub
