Este código es para bases de datos del tipo Access 97, en caso
de que quieras usar una de Access 2000, hay que cambiar el provider por:
Provider=Microsoft.Jet.OLEDB.4.0;

Set Cnn = New ADODB.Connection

Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; " & _
     "Data Source=" & sBase & ";" & _
     "Jet OLEDB:Database Password=laclave"

En este ejemplo, asumimos que tenemos una variable llamada Cnn
del tipo ADODB.Connection y otra, sBase del tipo String, a
la que se ha asignado el nombre de la base de datos a la que queremos acceder.

EL GUILLE