EXECUTÉ UNE PROCEDURE STOCKÉ "STOREPROC" DANS UNE BD ACCESS

 ''''''''''''''''''''''''''''''''''''''''''''''''
        '''''''''''''''''''''''''mpSqlQuery''''''''''''''''''
        '''''''''''''''''''''''''''''''''''''''''''''''''''''
        Public Function mpSqlQueryWithParam(ByVal sSQL As String, ByVal vParametres As BusinessEntities.OleDbParametreCollection) As Integer
            Try
                mpOuvrirBD()
                If cnBD.State = ConnectionState.Open Then
                    ' Déclaration Objet Commande 
                    Dim ObjetCommand As New OleDbCommand
                    'Instancier un objet Commande
                    ObjetCommand = New OleDbCommand(sSQL)
                    'Instancier un objet Adapter
                    ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
                    'initialiser l'objet Command
                    ObjetCommand.CommandType = CommandType.StoredProcedure
                    'déterminer s'il y a des paramètres à insérer dans la requête.
                    If vParametres.Count > 0 Then
                        mgSetParam(ObjetCommand, vParametres)
                    End If
                    ObjetCommand.Connection() = cnBD
                    'Charger le DataSet
                    ObjetCommand.ExecuteNonQuery()
                Else
                    Throw New Exception("Votre connexion n'est pas ouverte")
                End If
            Catch ex As OleDbException
                MessageBox.Show("Dans le programme:" & NOM_MODULE & " et dans la procédure: mpsqlQuery. Voici le message: " & ex.Message)
            Finally
                mpFermerBD()
            End Try
        End Function