En DAO :
Dim db as database
Dim Ws as workspace
set ws = workspace(0)
set db=ws.opendatabase(cheminbase,false,false,motdepasse)
En ADO :
Set cn = CreateObject("ADODB.connection")
cn.connectionstring = "DBQ=fichiermdb;" & _
"DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DefaultDir=" & cheminfichiermdb & ";" & _
"UID=admin;PWD=Motdepasse;"
voili, voilou.
