ADO.net ??

    Private Shadows zConnexion As New OleDb.OleDbConnection()

    Private Property Connexion() As OleDb.OleDbConnection
        Get
            Try
                If (Me.zConnexion Is Nothing) Then
                    zConnexion = New OleDb.OleDbConnection()
                End If
            Catch ex As Exception

            End Try

            Return Me.zConnexion

        End Get
        Set(ByVal value As OleDb.OleDbConnection)
            Me.zConnexion = value
        End Set
    End Property

Public Sub New(ByVal pContexte As Type_Contexte)
        MyBase.new()
        Contexte = pContexte

        Try
            ' Parametrage de la chaine de connection
            Connexion.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;" & "Data Source= " & Contexte.CheminBD & ";"
            Connexion.Open()
        Catch exZ As ZcException
            StrTexte.AppendLine(ZcExceptionMsg.MSG500001)
            StrTexte.AppendLine("Chemin de la BD : " & Chemin)
            StrTexte.AppendLine("Constructeur VIDEO_SQL")
            MessageBox.Show(StrTexte.ToString)
        End Try

End Sub

    Public Function Obtenir_Liste_Videos(ByVal Critere As Type_Criteres) As Type_Collection

        Tracage.LigneTracage("Entree - VIDEO_SQL : Obtenir_Liste_Videos", Contexte)

        Dim MonAdapteur As OleDb.OleDbDataAdapter = Nothing
        Dim MonDataTable As DataTable = Nothing
        Dim MonDataSet As New DataSet()
        Dim DataRowLocal As DataRow
        Dim MaCollection As New Type_Collection
        Dim MonEntite As New Type_Entite
        Dim ErrFat As ZcException = Nothing

        Try
            Dim reqSQL As String = Video_REQ.ObtenirSQL_Liste_Video(Critere)

            MonAdapteur = New OleDbDataAdapter(reqSQL, Connexion)
            MonAdapteur.Fill(MonDataSet, "TableVideo")
            MonDataTable = MonDataSet.Tables("TableVideo")

            For Each DataRowLocal In MonDataTable.Rows
                MonEntite = CreerInstance(DataRowLocal, Contexte)
                MaCollection.Add(MonEntite)
            Next

            Tracage.LigneTracage("Sortie - VIDEO_SQL : Obtenir_Liste_Videos", Contexte)

        Catch ex As Exception
            Tracage.LigneTracage("Erreur - VIDEO_SQL : Obtenir_Liste_Videos", Contexte)
            Tracage.Chemin = Contexte.CheminLog
            Tracage.Programme = "WinVidéo"
            Tracage.Methodes = "Obtenir_Liste_Videos"
            ErrFat = New ZcException(ex, Tracage.Methodes)
            ErrFat.LeverException()
            MaCollection = Nothing
        End Try

        Return MaCollection

    End Function