Imports System.Data
Imports System.Data.OleDb

Public Class AdoNET
    Public DS As DataSet

    Private Count As Integer =  0 
    Private Const strProvider As String =  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;"
    Private Conn As OleDb.OleDbConnection
    Private AD As OleDb.OleDbDataAdapter
    Private Comm As OleDb.OleDbCommand

    Public Sub New(ByVal str_mdb As String)
        Try
            Conn = New OleDb.OleDbConnection()
            Conn.ConnectionString = _
                strProvider &  "Data Source="  & _
                str_mdb
            Conn.Open()
            Comm = New OleDb.OleDbCommand()
            Comm.Connection = Conn
            AD = New OleDb.OleDbDataAdapter()
            DS = New DataSet()
        Catch saveException As Exception
            MessageBox.Show(saveException.Message)
            Finalize()
        End Try
    End Sub

    Public Sub Add_SQL(ByVal str_SQL As String, ByVal strRecordSet As String)
        Comm.CommandText = str_SQL
        AD.SelectCommand = Comm
        AD.Fill(DS, strRecordSet)
    End Sub

    Protected Overrides Sub finalize()
        'Comm.Dispose()
        DS.Dispose()
        AD.Dispose()

        DS = Nothing
        AD = Nothing
        Comm = Nothing
        Conn.Close()
        Conn = Nothing
    End Sub
End Class

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class AdoNET
    Implements IDisposable
    Public DS As DataSet
    Private Const strProvider As String =  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;"
    Private Conn As OleDb.OleDbConnection
    Private AD As OleDb.OleDbDataAdapter
    Private Comm As OleDb.OleDbCommand
    Public Sub New(ByVal str_mdb As String)
        Try
            Conn = New OleDb.OleDbConnection
            Conn.ConnectionString = _
                strProvider &  "Data Source="  & _
                str_mdb
            Conn.Open()
            Comm = New OleDb.OleDbCommand
            Comm.Connection = Conn
            AD = New OleDb.OleDbDataAdapter
            DS = New DataSet
        Catch saveException As Exception
            MessageBox.Show(saveException.Message)
        End Try
    End Sub
    Public Sub Add_SQL(ByVal str_SQL As String, ByVal strRecordSet As String)
        Comm.CommandText = str_SQL
        AD.SelectCommand = Comm
        AD.Fill(DS, strRecordSet)
    End Sub
    Public Overloads Sub Dispose() Implements IDisposable.Dispose
        Comm.Dispose()
        DS.Dispose()
        AD.Dispose()
        Conn.Close()
        GC.SuppressFinalize(Me)
    End Sub
End Class