Const PassWord = "XXXX", Server = "localhost", User = "root", DataBase = "toto", Port = 3306
Const Connexion = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=" & Server & ";Port=" & Port & ";Database=" & DataBase & ";User=" & User & ";Password=" & PassWord & ";"
Private Sub UserForm_Initialize()
With CreateObject("ADODB.connection")
.Open Connexion
Me.ComboBox1.Column = .Execute("select [Champ] from [MyTable]").getrows
.Close
End With...