Module Module1
Public Conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public sql As String

Public Function Connection()
    Conn = New ADODB.Connection
    Conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & My.Application.Info.DirectoryPath & "Database1.mdb"
    Conn.Open()
End Function

Private Sub ApplicationDesignForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Connection()
    sql = "Select * From App"
    rs.Open(sql, Conn)
    While Not rs.EOF
        Dim item As ListViewItem = ListView1.Items.Add(rs.Fields("QRCode").Value)
        item.SubItems.Add(rs.Fields("Category").Value)
        item.SubItems.Add(rs.Fields("LastName").Value & ", " & rs.Fields("FirstName").Value & ", " & rs.Fields("MI").Value)
        item.SubItems.Add(rs.Fields("Gender").Value)
        item.SubItems.Add(rs.Fields("Address").Value)
            ListView1.FullRowSelect = True
            rs.MoveNext()
    End While
    Conn.Close()

If Not ListView1.SelectedItems.Count = 0 Then
        txtqrCode.Text = ListView1.Items(ListView1.SelectedIndices(0)).Text
        cbCategory.Text = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(1).Text
        txtFirstName.Text = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(2).Text
        cbGender.Text = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(3).Text
        txtAddress.Text = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(4).Text