Ayuda con la clave de acceso a la BDD

adrian
02 de Julio del 2004
Mi problema es el siguiente, tengo un módulo para abrir la BDD desde VB6, y en la funcion que hace la conexión cuando le agrego la instruccion para que coja la clave de la BDD me da error "Provider not found", pero le quito y corre sin dar ningun problema. Espero alguien pueda ayudarme determinando la causa del problema.
El función del módulo es el siguiente:
Public Sub p_conc_accs()
'string de coneccion a base
Dim lst_cami_base As String
Dim fso, f
gob_opt = 0
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.GetFile("nueva.mdb")
lst_cami_base = "C:bibliotecabasebiblio.mdb" 'PATH BDD
'lst_cami_base = "C:bibliotecabasebiblio1.mdb" 'PATH BDD con clave
'Set BDDN = New Connection 'TIPO DE CONECCION

'CONSTRUIR STRING DE CONECCION
strConnBddn = "Data Source=" & lst_cami_base & ""
strConnBddn = strConnBddn & ";provider=Microsoft.Jet.OLEDB.4.0" & "Jet OLEDB:Database Password=ariel"

BDDN.CursorLocation = adUseClient
BDDN.ConnectionString = strConnBddn
End Sub



yanet_uru
02 de Julio del 2004
Falta separador ; antes de Jet OLEDB

'CONSTRUIR STRING DE CONECCION
strConnBddn = "Data Source=" & lst_cami_base & ""
strConnBddn = strConnBddn & ";provider=Microsoft.Jet.OLEDB.4.0;" & "Jet OLEDB:Database Password=ariel"