Trabajar con VB una DB Access protegida con Password

[Yanix]

Dim Db As DAO.Database
Dim Ws As DAO.Workspace
Dim Rset As DAO.Recordset

Private Sub Form_Load()
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase ("C:\rutadelabase\elnombredelabse.mdb", False, False, "MS Access;PWD=password")
Set Rset = Db.OpenRecordset("nombredetabla", dbOpenDynaset)
Set Data1.Recordset = Rset
End Sub

Si es ADO , espero esta pagina te sea util:
http://www.johnsmiley.com/cis18/Dece...cember1999.htm