Acceso a bd

El siguiente código lo he encontrado en una página web dedicada a Visual Basic, puesto que yo también desconocía la forma de acceder a una bd protegida con contraseña. ¡Los dos hemos aprendido!
Espero que te funcione.
Dim Ws1 as workspace
Dim Db as database
Set Ws1 = CreateWorkspace("","Admin","",dbUseJet)
Set Db = Ws1.OpenDatabase("nombre_base_datos", False,False,";PWD=contraseña")
Mucha atención al punto y coma detrás de las comillas en esta ultima linea (casi no se ve y es crucial)
Si quieres hacerlo con un Control Data:
Data1.DatabaseName = "Nombredelabasededatos"
Data1.Connect = ";pwd=la_contraseña"
Data1.RecordSource = "NombreTabla"

Con respecto a tu problema, debes pasarle un string la password, te mando una función que puedes invocarla en el ventó load de un formulario o en el main del proyecto:
'agregá este código en un módulo
Global Bd As ADODB.Connection
Global Conexion As Boolean
Public Function EstablecerConnect() As Boolean
Dim i As Integer
Dim Pwd As String
Dim errLoop As ADODB.Error 'errores
Set Bd = New ADODB.Connection 'Establece una nueva conexión
Pwd = "mgo"
On Error GoTo ErrConnect
Bd.ConnectionTimeout = 2 'Tiempo de espera
Bd.CursorLocation = adUseServer 'Servidor
Bd.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Programas\MiBase.mdb", , Pwd 'Conexión
EstablecerConnect = True
Exit Function
ErrConnect:
' Enumera la colección Errors y muestra las propiedades
' de cada uno de los objetos Error.
For Each errLoop In Bd.Errors
strError = "Error #" & errLoop.Number & vbCr & _
"" & errLoop.Description & vbCr & _
"(Origen: " & errLoop.Source & ")" & vbCr & _
"(Estado de SQL: " & errLoop.SQLState & ")" & vbCr & _
"(Error nativo: " & errLoop.NativeError & ")" & vbCr
Debug.Print strError
Next
EstablecerConnect = False
End Function
'en el evento load de un formulario agregá:
dim Conexion as String
Private Sub Form_Load()
Conexion = EstablecerConnect
If conexion = True Then
'----
Else
'---
End if
End Sub
'bueno espero que te sirva, salU2...