Le seul souci que j'ai concerne la listbox et ma connexion avec ma base de données fonctionne.
J'ai essayé de faire ceci :
Private Sub Form_Load()
Dim bds As Database
Dim SQL As String
Set bds = OpenDatabase("C:\...\baseD.mdb")
SQL = "SELECT nomMetier FROM metier"
Set bds = bds.OpenRecordset(SQL)
With rs
.MoveLast
.MoveFirst
Do While Not .EOF
Metier.AddItem !nomMetier
.MoveNext
Loop
.Close
End With
bds.Close
End Sub
et l'erreur que j'ai est "type incompatible" à la ligne Set bds = bds.OpenRecordset(SQL)