Error el conectar a la BD desde VB6

[wiro]

Hola amigos, me pueden ayudar.

Estoy teniedo problemas con una BD hecha en access, resulta que la BD tiene contraseña y yo desde VB6.0 estoy accesando o quiriendo conectarme a elle, la BD, en la cedena de conexion le paso la contraseña pero me da el siguiente error.

"No se puede iniciar la aplicación. Falta el archivo de información del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario.
"

les aseguro que la BD no esta abierta por nadie mas, la cadena de conexion es la siguiente.

Provider=Microsoft.Jet.OLEDB.4.0;Password=XXXX;Dat a Source=C:\SIS\BDatos.mdb;Persist Security Info=True


si a la BD le quito la contraseña y tambien lo hago en mi cadena me logro conectar, pero si le pongo contraseña a la BD y esa contraseña la paso en la cadena me da ese error.

me pueden ayudar. Gracias

[Insomnia]

Hola

Te pongo la cadena de conexión que utilizo:

Código:

bd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Ruta & ";Persist Security Info=False;Jet OLEDB:Database Password=xxxxx"

Yo utilizo una base de datos access XP con ADO, otra cosa que he visto en tu código es que en Data Source tienes un espacio en blanco "Dat a"

--Saludos--

[wiro]

Ok gracias, voy a intentar....

[yectlipoch]

Usa esta función

Public Function setAccCStrLocal(dbNombre, dbPwd) As String
Dim StrConn As String
' Crea la cadena de conexión para una base en access
'dbNombre = Nombre y ruta de la base de datos
' dbPwd = Password de la base de datos
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin; password="""""
StrConn = StrConn & ";Data Source=" & dbNombre & ";Mode=ReadWrite|Share Deny None;"
StrConn = StrConn & "Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";"
StrConn = StrConn & "Jet OLEDB:Database Password=" & dbPwd & ";Jet OLEDB:Engine Type=4;Jet OLEDB:Database Locking Mode=0;"
StrConn = StrConn & "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";"
StrConn = StrConn & "Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;"
StrConn = StrConn & "Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
setAccCStrLocal = StrConn
End Function

Y para generarla:

MiBase = "c:\bd.mdb"
MiPwd = "micontraseña"
MiCadena = setAccCStrLocal(MiBase, MiPwd)