Hola
Para hacerlo mediante código y con una base de datos de access utiliza los siguiente:
Código:
Dim bd as New ADODB.Connection
bd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Ruta & ";Persist Security Info=False;Jet OLEDB:Database Password=pass"
Ruta es un string en el que guardas la ruta en la que se encuentra la base de datos y en lugar de pass pones la contraseña de la bd.
Recuerda que tienes que agregar la referencia Micr. ActiveX Data Objects
--Saludos--