Réponse acceptée !
EN ADO et une BAse ACCESS protégé par Mot de Passe:

Dim db As DAO.Database
Dim ws As DAO.WorkSpace
Dim rst As DAO.Recordset
Set ws = DBEngine.WorkSpaces(0)
Set db = ws.OpenDatabase ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", False, False, "MS Access;PWD=northwind")
Set rst = db.OpenRecordset("Customers", dbOpenDynaset)
If rst.RecordCount > 0 Then
rst.MoveLast
MsgBox rst!CustomerID
End If
rst.Close
db.Close

It@li@