Const sConnectionString As String = 'DRIVER={MySQL ODBC 3.51 Driver};' & _
'SERVER=localhost;' & _
'DATABASE=prixrevient;' & _
'UID=xxx;PWD=xxx; OPTION=3'
Function GetHeuresProd(sCode_Section As String, sNum_Section As String, sCode_Operation As String) As Variant
Dim rs As New ADODB.Recordset
Dim sSql As String
'Application.Volatile
sSql = 'SELECT SUM(data_production.HEURES) FROM data_production' & Space(1)
sSql = sSql & 'WHERE(((data_production.CDESECTION)=' & sCode_Section & 'Â'Â') AND ((data_production.NUMSECTION)=' & sNum_Section & 'Â'Â') AND ((data_production.CDEOPER) IN (' & sCode_Operation & 'Â'Â')));'
rs.Open sSql, sConnectionString, adOpenStatic, adLockReadOnly, adCmdText
GetHeuresProd = rs(0)
rs.Close
Set rs = Nothing
End Function