Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(Configuration.ConfigurationManager.ConnectionStrings("ACCESS_DB_DataConnectionString").ToString())
    Dim comm As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand("Select * FROM " + accessTable)
    Dim rdr As System.Data.OleDb.OleDbDataReader

    Try
        conn.Open()
        rdr = comm.ExecuteReader

        While rdr.Read
             InsertRecord()
        End While
        rdr.Close()
    Catch ex As Exception
        'Error
    Finally
        comm.Dispose()
        conn.Close()
        conn.Dispose()
    End Try
End Sub

Private Sub InsertRecord()
    'What do I do here?  Select into?  But how?
End Sub