Visual Basic - BD CON CONTRASEÑA EN ADO

HOLA A TODOS, LES AGRADEZCO SI ME PUEDEN AYUDAR CON UN INCONVENIENTE QUE TENGO, RESULTA QUE HICE UNA APLICACIÓN EN VB 6.0, LA CONECTE CON UNA BASE DE DATOS MEDIANTE ADO PERO DESEO PROTEGER LA BASE DE DATOS CON UNA CONTRASEÑA Y AL HACER ESTO EL PROGRAMA NO ABRE, SION LA CONTRASEÑA TODO FUNCIONA PERFECTAMENTE, EL LIO ES AL PROTEGER LA BASE DE DATOS CON DICHA CONTRASEÑA, DE ANTEMANO GRACIAS POR LA AYUDA QUE ME PUEDAN BRINDAR.

Esta seria una forma de abrir con Ado
Set baseBD = OpenDatabase(ruta, False, False, ";PWD=xxx")

donde ruta es el path y nombre de la base de datos a abrir y xxx pa contraseña de la base de datos

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Otra Forma
objConexion.Provider = "Microsoft Jet 4.0 OLE DB Provider"
objConexion.Properties("Jet OLEDB:Database Password") = "miclavesecreta"
objConexion.ConnectionString = "Data Source=c:\datos.mdb"

Lo del proveedor es opcional, pero fíjate como envío la palabra de entrada de la B