Acceso a una BD Access97 con password

Mi nombre es Miguel
Tengo el siguiente código por donde accedo a mi base de datos este es el código del main:
Option Explicit
Public rDatabase As String
Sub Main()
Dim fSistemaTerrenos As New frmMain
Dim ProgramaT As Database
'Establece las variables de conección de base de datos
rDatabase = "ProgramaT.mdb"
'Abre la Base de datos en modo exclusivo
Set ProgramaT = OpenDatabase(gstrDatabase)
Pero ahora le puse contraseña a la BD y mi pregunta es como puedo acceder ahora a la misma añdiendo algún código al anterior mostrado.
Gracias de antemano