Error el conectar a la BD desde VB6

[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)