Si tu ne connais pas le mot de passe ce sera difficile de t'aider ...
Par contre si tu connais le mot de passe, pour te connecter, voici la synthaxe :
Const mcstDbPath as String = "C:\MyBase.mdb"
Dim db As DAO.Database, rs As DAO.Recordset, wrkJet As Workspace
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
'
' Vérifier la présence de la base de données
'
If Dir(mcstDbPath) = "" Then
MsgBox "Database '" & mcstDbPath & "' is not found ! " & vbCrLf & "Refresh cancelled", vbExclamation, mcstApplicationTitle
GoTo exit_
End If
'
' Ouverture
'
Set db = wrkJet.OpenDatabase(mcstDbPath,";pwd=MonMotDePasse")
'
' Sélection des données concernant les rapports de statistiques
'
Set rs = db.OpenRecordset("SELECT * FROM tblStatsReport", 2)
Do While Not rs.EOF
'Ton code ...
rs.movenext
Loop
rs.Close
db.Close
'....
Accents bdd utf8
