Imports System.Data.OleDb
Imports System.Configuration
Imports System.Configuration.ConfigurationSettings

''' <summary>
''' Returns a BindingSource, which is used with, for example, a DataGridView control
''' </summary>
''' <param name="cmdSql">"pre-Loaded" command, ready to be executed</param>
''' <returns>BindingSource</returns>
''' <remarks>Use this function to ease populating controls that use a BindingSource</remarks>
Public Shared Function GetBindingSource(ByVal cmdSql As SqlCommand) As BindingSource
    'declare our binding source
    Dim oBindingSource As New BindingSource()
    ' Create a new data adapter based on the specified query.
    Dim daGet As New SqlDataAdapter(cmdSql)
    ' Populate a new data table and bind it to the BindingSource.
    Dim dtGet As New DataTable()
    'set the timeout of the SqlCommandObject
    cmdSql.CommandTimeout = 240
    dtGet.Locale = System.Globalization.CultureInfo.InvariantCulture
    Try
        'fill the DataTable with the SqlDataAdapter
        daGet.Fill(dtGet)
    Catch ex As Exception
        'check for errors
        MsgBox(ex.Message, "Error in GetBindingSource")
        Return Nothing
    End Try
    'set the DataSource for the BindingSource to the DataTable
    oBindingSource.DataSource = dtGet
    'return the BindingSource to the calling method or control
    Return oBindingSource
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'create your OleDb Objects
        Dim cnConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\MAOL.mdb;")
        Dim cmdCommand As New OleDbCommand()
        Dim daAdapter As New OleDbDataAdapter
        Dim dtSet As New DataTable

        'set your OledBCommand Properties
        With cmdCommand
            .CommandText = ("SELECT * FROM Accounts WHERE Username = 'Admin'") 'sql statement to execute
            .CommandType = CommandType.Text 'let it know you're executing a string not a stored procedure
            .Connection = cnConnection 'set its connection
        End With

        Try
            Dim oBinding As BindingSource = DataAccess.GetBindingSource(cmdCommand)
            'Now bind your grid
            dgvAccounts.DataSource = oBinding
            'catch any errors
        Catch ex As Exception
            'if theres an error fisplay it to the user
            MessageBox.Show(ex.Message, "Error: Retrieving Data", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub