Private Function loadTheLookupTable()
 
        '1) Create a CONNECTION
        Dim cnConnection As New OleDb.OleDbConnection
 
        '2) Set the connection
        cnConnection.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\work\blahblah\CBA_SAP_AccountsLookup.mdb"
 
        '3) Create a DATASET
 
        '4) Create a DATA ADAPTOR
        Dim daDataAdaptor As New OleDb.OleDbDataAdapter
        daDataAdaptor = New OleDb.OleDbDataAdapter("select * from qryGroupedLookup", cnConnection)
        '5) Fill a DATASET using the DATA APAPTOR
        daDataAdaptor.Fill(dsLookupData, "CBA_SAP_Lookup")
 
        'Open the connection
        'Close the connection
        cnConnection.Close()
 
 
    End Function
 
    Private Function loadTheTextFile()
 
        Dim file As String = "C:\work\blahblah.txt"
        Dim cmdtxt As String = ("SELECT * FROM " & file & "")
 
        '1) Create a CONNECTION
        Dim cnConnection As New Odbc.OdbcConnection
 
        '2) Set the connection
        cnConnection.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\work\;Extensions=asc,csv,tab,txt;"
 
        '4) Create a DATA ADAPTOR
        Dim daDataAdaptor As New Odbc.OdbcDataAdapter(cmdtxt, cnConnection)
        ''daDataAdaptor = New Odbc.OdbcCommand(cmdtxt, cnConnection)
 
        ' Create a DataTable. 
        Dim myTable As DataTable = New DataTable("TextFile")
 
        ' Create a DataColumn and set various properties. 
        Dim myColumn As DataColumn = New DataColumn
        myColumn.DataType = System.Type.GetType("System.String")
        myColumn.AllowDBNull = False
        myColumn.Caption = "CbaAccount"
        myColumn.ColumnName = "CbaAccount"
        myColumn.DefaultValue = ""
 
        ' Add the column to the table. 
        myTable.Columns.Add(myColumn)
 
        '5) Fill a DATASET using the DATA APAPTOR
        daDataAdaptor.Fill(dsLookupData, "TextFile")
 
        Dim myRow As DataRow
        Dim col As DataColumn
        Dim count As Integer = 0
        Dim currentRow As String
        Dim IsNull As Boolean
 
        For Each col In dsLookupData.Tables("TextFile").Columns
 
            IsNull = IsDBNull(dsLookupData.Tables("TextFile").Rows(count).Item(0))
 
            'Test for blank lines in the text file
            If IsDBNull(dsLookupData.Tables("TextFile").Rows(count).Item(0)) = False Then
 
                myRow = myTable.NewRow()
                currentRow = dsLookupData.Tables("TextFile").Rows(count).Item(0)
 
                myRow("CbaAccount") = currentRow
 
                ' Be sure to add the new row to the DataRowCollection. 
                myTable.Rows.Add(myRow)
 
                'update the rows contents
                dsLookupData.Tables("TextFile").Rows(count).Item(0) = dsLookupData.Tables("TextFile").Rows(count).Item(0).Substring(0, 2)
 
                'increment the row count
                count = count + 1
            Else
                'increment the row count
                count = count + 1
            End If
        Next
 
        'Rename the column to a meaningful name instead of the arbitary first line value
        dsLookupData.Tables("TextFile").Columns.Item(0).ColumnName = "CbaAcc"
 
    End Function