Base de datos con password

[Iodem Asakura]

Como puedo utilizar una base de datos con un password desde visual basic?

[vbx3m]

Prueba con este codigo:

Private mWS As Workspace
Private mBase As Database

' Donde abres la BD

Dim iPathBase as String

iPathBase= App.Path & 'Ruta de la BD

Set mWS = DBEngine.Workspaces(0)
Set mBase = mWS.OpenDatabase(iPathBase, False, False, ";pwd=contraseña")

Me avisas que tal...

[Iodem Asakura]

Pongo el codigo y me dice "User-type not defined".

Cual sera el problema conmigo, la mayoria de los codigos que me han pasado en el foro, no me funcionan. Me podrias explicar por que me pasa este error?

[ccca001]

con que base de datos trabajas?

[Iodem Asakura]

Una base de datos de access XP, extension .mdb

[ccca001]

mmm. prueba con este codigo:
Public oconn As New ADODB.Connection
Public rst As New ADODB.Recordset

With oconn
.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=TUPATH/TUBASE.mdb;Uid=TUUSUARIO;Pwd=TUCLAVE;"
.Open
End With

rst.Open "SELECT * FROM tutabla", oconn, adOpenDynamic, adLockOptimistic
Set consulta = oconn.Execute("SELECT * FROM tutabla")

no olvides aplicar las referencias en el menu proyecto :
microsoft dao 3.6 object library (creo)

si no, me cuentas, teambien hay otros modos...

[jrp01]

Esta usando ADO debe de poner las rferencias a Microsoft ActiveX Data Objects 2.xx Library

[ccca001]

exacto, casi obvio, no?
Public oconn As New """"ADODB"""".Connection

es que con tanta tontera en la cabeza...y tanto codigo utilizado para conectarse a bases de datos (de hecho ahí esta la encuesta)... que mas se puede esperar...

[Iodem Asakura]

Se me olvido que en mi programa utilizo la base de datos a traves de un control ADODC que tengo insertado en el form.