Visual Basic - Como poder usar contraseñas con un ADO (contrdata)

como puedo indicar las contraseñas de una base de datos access en un control data

Esta es una de las maneras para abrir:

Esto lo colocas en el formulario o donde te interese abrir la base
Private Sub Form_Load()
Data1.DatabaseName = "\nombre.mdb"
End Sub

Esto lo colocas el el control data en la propiedad Connect
;pwd=tu contraseña

Alguna otra manera usando recordsets

Ejemplo

set base = opendatabase("mibase.mdb")
set tabla = base.openrecodset(select * from tabla1")

Gracias de antemando
Jose