Abrir db de acces con seguridad

tema enviado por donaire en Visual Basic 6.0
tema iniciado el 13/09/2007

hola, agrtadeceria que algien me ayude con lo siguiente. tengo un aplicativo con vb 6.0 con una db de access y necesito hacer la conexion y abrir la base e a datos con contraseña.

tengo el siguiente codigo para hacer la conexion, este esta en un modulo. ¿pero como habro la bd, cuando tiene contraseña? 

Public Function conectar() As Boolean
'On Error GoTo jed
Set conexion = New ADODB.Connection

With conexion
.Provider = "microsoft.jet.oledb.4.0"
.Open (App.Path & "\SOPORTECNICO.mdb")
End With

Exit Function
'jed:
'MsgBox ("Error al conectarse con la Base de Datos, Por favor consultecon el Proveedor del Sistema")

End Function