Password ADO Access

[cobein]

Buen día, esto es muy basico pero no lo puedo hacer andar, tengo una DB de access protegida con password y no logro hacer que conecte, este es el string ""Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase & " ;Password=l4Q7h5T2"" que me da el error, dice que el archivo esta abierto en modo exclusivo o que falta un archivo de informacion.

Alguna idea?

[seba123neo]

Hola, si me paso una vez, esta es la solucion:

Como conectarse a una BdD con contraseña desde VB6?

la solucion la da el usuario del post numero 5. probala

saludos.

[E N T E R]

Aca te dejo como yo uso nunca tube problemas.

Código: [Seleccionar]

Public ADOConexion As ADODB.Connection
Public ComandoSQL As String

Public Sub ConectarADO()
   
    If DataEnvironment1.Connection1.State = adStateOpen Then DataEnvironment1.Connections("Connection1").Close

    Set ADOConexion = New ADODB.Connection
    ADOConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\STOCK.mdb;Persist Security Info=False;Jet OLEDB:Database Password=xxxx"
    ADOConexion.Open
   
End Sub
   
Public Sub CerrarADO()
   
    ADOConexion.Close
    Set ADOConexion = Nothing

End Sub

[cobein]

Perfecto, conecto sin problemas.

Gracias!