para abrir o banco de dados com senha com o Objeto DATA use assim...
Dim DB As Database
Set DB = OpenDatabase(dtcliente.DatabaseName, False, False, ";pwd=" & SENHA)
e para listar as tabelas e campos use...
Dim tbl As TableDef
cmbTables.Clear
cmbFields.Clear
For Each tbl In DB.TableDefs
If Left(tbl.Name, 4) <> "MSys" Then cmbTables.AddItem tbl.Name
Next
Dim fld As Field
For Each fld In DB.TableDefs(0).Fields
cmbFields.AddItem fld.Name
Next
cmbTables.ListIndex = 0
cmbFields.ListIndex = 0
