Configura tus rstProjets variable de objeto a un New ADODB.Recordset
y luego llame a su .Open
método.
Dim rstProjets As ADODB.Recordset
ConnectMySQL
Set rstProjets = New ADODB.Recordset
rstProjets.Open "SELECT * FROM subventions LIMIT 5", mysqlConn