Visual Basic - Problema com PWD

HOLA COMO ESTAN

TENGO UN PROBLEMA QUE REALIZE EN VISUAL BASIC CON UNA BASE DE DATOS ACCESS, LE COLOQUE UNA CONTRASEÑA A LA BASE DE DATOS DESDE MICROSOFT ACCESS PARA SEGURIDAD AL ABRIR, PERO CUANDO EJECUTO EL PROGRAMA ME DA UN ERROR QUE NO PUEDE ABRIR LA BASE DE DATOS, QUE COMANDOS DEBO UTILIZAR PARA ABRIR LA BASE DE DATOS EN EL PRIMER LOAD DE EL PROGRAMA.

Fijate de cambiar el connection string de tu programa y agregale la contraseña que hayas fijado. Si queres genera un DSN de usuario desde el panel de control y usa el contenido de ese archivo como ConnectionString.

Set wsp = DBEngine.Workspaces(0)
Set base = wsp.OpenDatabase(DireccionBasesDatos, False, False, ";PWD=CONTRASEÑA")
Data1.DatabaseName = DireccionBasesDatos
Data1.Connect = ";pwd=CONTRASEÑA;"
Data1.RecordSource = ""
Data1.Refresh
Data3.DatabaseName = DireccionBasesDatos
Data3.Connect = ";pwd=CONTRASEÑA;"
Data3.RecordSource = "Zonas"
Data3.Refresh

Etc., etc...