Access Select query in vb.net

Public Class Form1

    Dim ProjectRef As String
    Dim AppNameSelect As String
    Dim AccessDateFrom As Date
    Dim AccessDateTo As Date
    Dim Username As String
    Dim ComputerName As String
    Dim AccessTime As DateTime
    Dim AppName As String

    'Define database connection string, update and select query
    Dim ConnString As String = _
        "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = \\database\TESTONLY.accdb; "
   
    Dim DbUpdate As String = _
   "INSERT INTO [ApplicationLogging] (AccessDate, UserName, ComputerName,  AppName  ) Values(?,?,?,?)"

    Dim DbSelect As String = _
          "Select * from [ApplicationLogging] where AppName = AppTest"


    Private Sub ReportGen_Click(sender As System.Object, e As System.EventArgs) Handles ReportGen.Click

        ProjectRef = ProjectRefInput.Text
        AppNameSelect = ApplicationSecection.Text
        AccessDateFrom = DateFrom.Text
        AccessDateTo = DateTo.Text


        'Collect the data from the system
        Username = System.Security.Principal.WindowsIdentity.GetCurrent.Name
        ComputerName = Environment.MachineName
        AccessTime = Date.Today
        AppName = My.Application.Info.AssemblyName
        
        Try

            Using cnn As New OleDbConnection(ConnString)
                cnn.Open()

                Using cmd As New OleDbCommand(DbUpdate, cnn)
                    cmd.Parameters.AddWithValue("AccessDate", AccessTime)
                    cmd.Parameters.AddWithValue("UserName", Username)
                    cmd.Parameters.AddWithValue("ComputerName", ComputerName)
                    cmd.Parameters.AddWithValue("AppName", AppName)
                    cmd.ExecuteNonQuery()
                    Using SelectQuery As New OleDbCommand(DbSelect, cnn)
                        SelectQuery.ExecuteReader()
                        Dim ResultsTable As New OleDb.OleDbDataAdapter(SelectQuery)
                        Dim DataTable As New DataTable("INTOOLS_Results")
                        ResultsTable.Fill(DataTable)
                        DataGridView1.DataSource = DataTable


                    End Using
                   
                End Using
                cnn.Close()
                cnn.Dispose()

            End Using

        Catch ex As Exception
            'Unable to find or update the database
            Err.Number = 2
            Call ErrorCodeHandle()

        End Try

    End Sub

    Private Sub ErrorCodeHandle()
        Select Case Err.Number 'Evaluate the error number.
            Case 1 'Incorrect domain
                MsgBox("You are not Authorised to use this application...........")
                MsgBox("Please contact Support@myapp.com for assistance")
                MsgBox("This application will now terminate.")
                Call endgame()

            Case (2) 'Unable to locate database file
                MsgBox("Unable to locate a required file (Error 6565)")
                MsgBox("Please contact Support@myapp.com for assistance")
                MsgBox("This application will now terminate.")
                Call endgame()

            Case (3) 'Creation of log file error handler - not currently used
                MsgBox("There was a problem writing to the log file. please try again and if the error persists please contact Support@myapp.com for assistance.")

        End Select

    End Sub

    Private Sub endgame() ' Terminates the calling appication or process

        Dim AppID As Process = Process.GetCurrentProcess()

        ' Kill the calling procedure
        AppID.Kill()

        'Clean up any open or locked file or connections
        AppID.Dispose()

    End Sub