Public Shared Function MyODBCDataset(ByVal ReqSQL As String, _ByVal LaBase As String,
ByVal Server As String, _ByVal Password As String,
ByVal User As String, _ByVal NomDataSet As String) As DataSet
'Connexion à un server MySQL
'avec le Driver ODBC 3.51 avec requette qui renvoie un dataset