Imports System.Data.OleDb
Public Class DatabaseConnection
    Private CommonConnection As OleDbConnection
    Private CommaonDataAdapter As OleDbDataAdapter
    Private CommonCommand As OleDbCommand
    Private CommonDataSet As DataSet

    Public Sub New()
        CommonConnection = New OleDbConnection("provider=MicroSoft.jet.OLEDDB.4.0;" & "Data Source=..\db1.mdb;" & "persist Security Info=false")
        CommonCommand = New OleDbCommand
        CommonCommand.Connection = CommonConnection
        CommonDataSet = New DataSet
    End Sub
    Protected ReadOnly Property p_CommonConnection() As OleDbConnection
        Get
            Return CommonConnection
        End Get
    End Property
    Protected Property p_CommonDataAdapter() As OleDbDataAdapter
        Get
            Return CommaonDataAdapter
        End Get
        Set(ByVal Value As OleDbDataAdapter)
            CommaonDataAdapter = Value
        End Set
    End Property
    Protected ReadOnly Property p_CommonCommand() As OleDbCommand
        Get
            Return CommonCommand
        End Get
    End Property
    Protected Property p_CommonDataSet() As DataSet
        Get
            Return CommonDataSet
        End Get
        Set(ByVal Value As DataSet)
            CommonDataSet = Value
        End Set
    End Property

End Class