Visual Basic - ABRIR ACCESS 2000 CON VB6

A ver si alguien puede ayudarme.
He creado una base de datos con access 2000 protegida por contraseña y necesito abrirla con VB6.¿Sabeis como puedo hacerlo?Muchas gracias

Hola

Cuando la base de datos tiene un password una de las formas para abrirla es utilizando los Drivers en su connectionString, ahi te va un ejemplo:

cn.ConnectionString =
"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\DB\test.mdb;Password=123;User Id=Admin;Persist Security Info=False"

En este caso se abre una base de datos llamada test.mdb y cuyo password es 123 , esta base de datos esta ubicada en C:\DB\test.mdb.
y el usuario es Admin.

Espero te ayude

Saludos

Victor Collado

Hola.La verdad es que no controlo mocho el tema. Lo estaba haciendo con dao y esto es lo que habia hecho para abrirla:

Dim rs As Recordset
Dim db As Database

Set db = OpenDatabase(App.Path & "\claves.mdb")

Me falta saber como le mando la contraseña.
Gracias

La instruccion correcta para abrir con Dao sería asi:

Set db = OpenDatabase(App.Path & "\claves.mdb", ";pwd=mipwd")

Ojo: pongo punto y coma delante de pwd

Lo he probado y no funciona (en la ayuda tambien te biene asi).Esto es la leche!!!
Me dice 'error 3421.Error de conversion de tipos de datos.'

Y si le pongo las comas entre los datos para dejar las posiciones de las demas opciones,es decir:

Set db = OpenDatabase(App.Path & "\claves.mdb", , , ";pwd=1")

Me dice 'error 3031.No es una contraseña valida.'

Gracias de todos modos

Tenia que poner las 2 opciones anteriores,si no no va