Simple Database Module[VB.NET]

 VB.NET + ACCESS version of simple database module

Create a new module in your Project[can be found @ solution explorer]

[Right Click > add > Module]

Imports System.Data.OleDb

Module dCon
    Dim con As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim dt As DataTable

    Public Sub loadConnection(ByVal conStr As String)
        con = New OleDbConnection(conStr)
        con.Open()
        If (con.State = ConnectionState.Open) Then
            MessageBox.Show("Connection was Established")
        End If
    End Sub
    Public Sub execute(ByVal sql As String)
        If (con.State = ConnectionState.Open) Then
            dt = New DataTable
            da = New OleDbDataAdapter(sql, con)
            da.Fill(dt)
        Else
            'load connection
        End If
    End Sub
    Public Sub setUpListView(ByVal _lv As ListView)
        _lv.FullRowSelect = True
        _lv.GridLines = True
        _lv.View = View.Details

    End Sub
    Public Sub transferData(ByVal _lv As ListView)
        _lv.Clear()
        For Each d As DataColumn In dt.Columns
            Dim c As New ColumnHeader
            c.Text = d.ColumnName
            c.Width = _lv.Width / dt.Columns.Count
            c.TextAlign = HorizontalAlignment.Center
            _lv.Columns.Add(c)
        Next
        For Each dr As DataRow In dt.Rows
            Dim items(dt.Columns.Count) As String
            Dim ctr As Integer = 0
            For Each itemRow As Object In dr.ItemArray
                items(ctr) = itemRow.ToString

                ctr += 1
            Next


            Dim xItem As New ListViewItem(items)
            _lv.Items.Add(xItem)
        Next
    End Sub

End Module

USAGE

        loadConnection("Provider=Microsoft.Ace.oledb.12.0; Data Source=myDatabase.accdb")
        execute("select * from BOOKS")
        setUpListView(ListView1)
        transferData(ListView1)





Read this for more information