conexion ADO access

[Francisco Horta]

Tengo este codigo para abrir una base de datos de access sin password y va muy bien:

cFile:="mibase.mdb"
oConexionAdo := TOLEAUTO():New("adodb.connection")
oRS := TOLEAUTO():New("adodb.recordset")
oOpen := "Provider= MicroSoft.Jet.OLEDB.4.0;Data Source="+cFile+";"
oConexionAdo:Open(oOpen)

Pero al tratar de abrir una base de datos con Password me truena en el open,y lo hago asi:

cFile:="mibaseconpass.mdb"
oConexionAdo := TOLEAUTO():New("adodb.connection")
oRS := TOLEAUTO():New("adodb.recordset")
oOpen := "Provider= MicroSoft.Jet.OLEDB.4.0;Data Source="+cFile+";Password=DB12345"
oConexionAdo:Open(oOpen)

En que parte estoy fallando?
gracias
paco

[Armando]

Paco:

Encontre esto, tal vez es tu solución:

Code: Select all  Expand view  RUN

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;


Saludos

[Francisco Horta]

Gracias Armando
salu2
Paco