Visual Basic - Ayuda con pwd a BD access 2k

Hola,
Quisiera que alguien me pueda ayudar a accesar un bd access 2k que tiene el pwd="clave".. he probado varios códigos, pero no me resulta... así me conecto: Set datos = OpenDatabase(App.Path & "\sischeq.mdb")
a este último código le agregado la entrada a la bd con la clave.. pero hasta ahora sin resultado... espero me puedan ayudar... salu2 kronos..!

Yo lo declaro en un modulo de esta forma, no uso el path porque tengo la base en un servidor
Public Const RutaBD As String = "H:\db2000.mdb" 'direccion de la BD
Public Const Coneccion As String = "Provider=Microsoft.Jet.OLEDB.4.0;""Data Source=" & RutaBD & ";Persist Security Info=False;Jet OLEDB:Database Password=PASS"