Dim Cnx As New ADODB.Connection Cnx.Open "Driver={MySQL ODBC 5.1 Driver};Server=adresse;Port=3306;Database=base;User=utilisateur; Password=mdp;Option=3;" 'Petit test Dim rs As ADODB.Recordset Set rs = Cnx.Execute("SELECT MD5('hello') AS x") MsgBox rs("x") rs.Close : Set rs = Nothing Cnx.Close : Set Cnx = Nothing