DB input

Imports System.Data.OleDb
Public Class Form1

    Dim conn As New OleDbConnection
    Dim myqry As String = Nothing
    Dim mycmd As New OleDbCommand
    Dim mydr As OleDbDataReader

    Sub ConnToDB()
        Try
            With conn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database6.accdb"
                .Open()
            End With
        Catch ex As Exception
            MessageBox.Show("Unable to connect", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Application.Exit()
        End Try
    End Sub

    Sub FillListview()
        LV.Items.Clear()
        myqry = "SELECT * from Table1 ORDER BY id ASC"
        mycmd = New OleDbCommand(myqry, conn)
        mydr = mycmd.ExecuteReader

        While mydr.Read
            With LV
                .Items.Add(mydr("id"))
                With .Items(.Items.Count - 1).SubItems
                    .Add(mydr("dbf1"))
                    .Add(mydr("dbf2"))
                    .Add(mydr("dbf3"))
                    .Add(mydr("dbf4"))
                    .Add(mydr("dbf5"))
                    .Add(mydr("dbf6"))
                    .Add(mydr("dbf7"))
                    .Add(mydr("dbf8"))
                End With
            End With
        End While
    End Sub

    Sub LVsettings()
        With LV.Columns
            .Add("ID", 50, HorizontalAlignment.Left)
            .Add("First Name", 100, HorizontalAlignment.Left)
            .Add("Middle Name", 100, HorizontalAlignment.Left)
            .Add("Last Name", 100, HorizontalAlignment.Left)
            .Add("Age", 100, HorizontalAlignment.Left)
            .Add("Gender", 100, HorizontalAlignment.Left)
            .Add("Year Level", 100, HorizontalAlignment.Left)
            .Add("Section", 100, HorizontalAlignment.Left)
            .Add("Strand", 100, HorizontalAlignment.Left)
        End With
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Call ConnToDB()
        Call FillListview()
        Call LVsettings()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        myqry = "INSERT INTO Table1(dbf1,dbf2,dbf3,dbf4,dbf5,dbf6,dbf7,dbf8) "
        myqry = myqry + "VALUES('" & txt1.Text & "','" & txt2.Text & "','" & txt3.Text & "','" & txt4.Text & "','" & txt5.Text & "',
        '" & txt6.Text & "','" & txt7.Text & "','" & txt8.Text & "')"
        mycmd = New OleDbCommand
        With mycmd
            .CommandText = myqry
            .Connection = conn
            .ExecuteNonQuery()
        End With
        Call FillListview()
    End Sub
End Class