ms-access - Listview の内容を ms access db に保存する

Question

VAT別のテーブルからロードしてリストビューに入力する別の列ヘッダーをリストビューに追加しました。これまでのところ、それはうまく機能しています。現在、リストビューから別のテーブルに情報を保存しようとしていますが、これは難しいことがわかっています。

私は1週間ウェブで検索してきましたが、リストビューへのロードに関する私のコードは無駄です。

Public Sub cmdLookup_Click()
On Error GoTo SearchError

With Connect.rsitem
 .Filter = "Itemno = '" & txtSearch.Text & "' or desc1 like '" & txtSearch.Text & _
     "*' or desc2 like '" & txtSearch.Text & "*' or upc = '" & txtSearch.Text & "'"
  
     .Open
    If .RecordCount > 1 Then
       FrmSearch.Show vbModal
   End If
   If .RecordCount > 0 Then
      QtyRemain = !onhandqty
   If QtyRemain > 0 Then
         Set x = ListView.ListItems.Add(, , !itemno)
            x.SubItems(1) = !desc1
            x.SubItems(2) = !desc2
            x.SubItems(3) = !Size
            x.SubItems(4) = 1
            x.SubItems(5) = FormatNumber(!unitprice)
            x.SubItems(6) = FormatNumber(!unitprice)
            x.SubItems(7) = !upc
            x.SubItems(8) = !Vat
            x.EnsureVisible
            x.Selected = True

保存部分

Public Sub SaveSales()
Dim i As Integer
i = 1
 Do Until i = (ListView.ListItems.Count + 1)
 With ListView.ListItems(i)
       Connect.AddSales txtinvoice.Text, .Text, .SubItems(4), .SubItems(6), txtdate.Text, txtSubTotal.Text, _
                     txtDiscount.Text, txtTotal.Text, frmPayment.txtCash.Text, _
                     CDbl(frmPayment.txtCash.Text) - CDbl(txtTotal.Text), "Open", frmLogin.Cashier
 End With
i = i + 1
   Loop
End Sub