Conectar BD desde VB

[2Fast To You]

Hola Amigos

Bueno, me gustaria saber como puedo conectarme a una BD en Access teniendo una Contraseña esta. ??

Se que para conectarme a ella sin Contraseña es:

Código PHP:

  Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BDBuyOnlineWithUs.mdb" & ";"
Rs.ActiveConnection = Cn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
Rs.Open "Select * From Cliente" 
   

Pero no se como hacer para conectarme a ella con clave.

Saludos

[quinqui]

yo ahora luego le voy a poner contraseña a una de las bases Access que estoy ocupando con un programita VB que estoy haciendo... pero como todavía no lo hago, a ver si te puedo aportar en algo (espero )
en mi caso, para conectarme ocupo otro código, pero la idea es la misma.
aunque aún no lo he probado, tú, donde está en rojo:

Código:

Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BDBuyOnlineWithUs.mdb" & ";" 

prueba a poner:

Código:

"pwd=tuclave;"

no sé si el punto y coma vaya antes o después de la línea, pero ahí veremos ^_^

estas con las líneas de código que uso ya para conectarme:

Código:

Public base as Database
...
Set base = OpenDatabase(ubicación_de_la_base, opciones, sólo_lectura, conexión)

y justo donde dice "conexión", pongo el ";" que tú has puesto en tu código.
en una conexión ODBC la línea de conexión me quedaba algo así:

Código:

"ODBC; DATABSE=nombre_base; UID=nombre_usuario; PWD=clave; DSN=nombre_conexión_odbc"

a ver qué resulta de esto oO..........................

[GeoAvila]

aqui hay algo mas

http://www.forosdelweb.com/showthrea...819#post840819