Call DB Functions

 Public Function SelectData(ByVal cmdStr As String, Optional ByVal dbPath As String = "") As ArrayList
        Dim readerObj As System.Data.OleDb.OleDbDataReader

        m_DBOper.Connect(dbPathName)
        readerObj = m_DBOper.DoSelect(cmdStr)
        If readerObj Is Nothing Then
            MsgBox("Nothing")
            Return New ArrayList
        End If

        Dim dataArray As New ArrayList

        If readerObj.HasRows = False Then
            readerObj.Close()
            m_DBOper.DisConnect()
            Return New ArrayList
        End If

        Do Until readerObj.Read() = False
            Dim rowArray As New ArrayList
            Dim i As Integer
            For i = 0 To readerObj.FieldCount - 1
                rowArray.Add(readerObj.Item(i))
            Next
            dataArray.Add(rowArray)
        Loop

        readerObj.Close()
        m_DBOper.DisConnect()
        Return dataArray
    End Function