Database 将MS Access数据库中的数据信息直接显示到多个文本框中

我使用listview作为触发器将数据放入文本框。但是我想直接在文本框中显示access数据库中的Firstname、lastname和中间首字母。我的代码显示我的数据到文本框

结果是这样的 我的代码是

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
        Dim str As String = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(2).Text
        Dim splitStr As String() = str.Split(","c)
        txtLastName.Text = splitStr(0).Trim()
        txtFirstName.Text = splitStr(1).Trim()
        txtMiddleInitial.Text = splitStr(2).Trim()
        cbGender.Text = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(3).Text
        txtAddress.Text = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(4).Text
    End If

以及将access数据库连接到我的listview

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("Category").Value)
            item.SubItems.Add(rs("LastName").Value & ", " & rs("FirstName").Value & ", " & rs("MI").Value)
            item.SubItems.Add(rs("Gender").Value)
            item.SubItems.Add(rs("Address").Value)
            ListView1.FullRowSelect = True
            rs.MoveNext()
    End While

端接头

---

还有其他解决办法吗？代码是什么？请寻求帮助。

文本框一次只能显示一项，在读取访问数据时，您应该选择要显示的记录。将它们添加到ListView，然后从中选择要显示的一个，有什么不对？我想使用QRCode的文本框作为触发器来添加它们，这样我就不会使用列表中的代码。因为在某些情况下，一列中有很多字符串，所以我的代码要多得多。我想要一个代码较少但功能与我的listview相同的新项目。文本框一次只能显示一个项目，当您读取access数据时，您应该选择要显示的记录。将它们添加到ListView，然后从中选择要显示的一个，有什么不对？我想使用QRCode的文本框作为触发器来添加它们，这样我就不会使用列表中的代码。因为在某些情况下，一列中有很多字符串，所以我的代码要多得多。我想要一个代码较少但功能与listview相同的新版本。