Defina seus rstProjets variável de objeto para um
New ADODB.Recordset e, em seguida, chame seu .Open método. Dim rstProjets As ADODB.Recordset
ConnectMySQL
Set rstProjets = New ADODB.Recordset
rstProjets.Open "SELECT * FROM subventions LIMIT 5", mysqlConn
