Visual Basic - Quien me puede ayudar

hola a todos mi pregunta es:

como puedo hacer para conectar mi sistema en visual con una base de datos access con CONTRASEÑA. Si alguien lo sabe por favor me lo pueden decir.

Coloca un dsn de sistema , y en un modulo lo siguiente
'***
Public conexion As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub main()
'On Error GoTo etqerror
conexion.Open ("dsn=NOMBRE DE TU DSN ;user id = sa;pwd="AQUI VA LA CLAVE";")

MsgBox "Conexion Exitosa", vbInformation, "Conexion"
MUESTRE EL PRIMER REGISTRO

Exit Sub

etqerror:
MsgBox "Error de Conexion " & Err, vbCritical, "Conexion"

End Sub

'* tienes que colocar en referencia Microsoft ActiveX Data Objects 2.5 Library