Vb6 将Listview内容保存到ms access数据库

我已经将另一个列标题添加到我的listview“VAT”中，它从另一个表加载并填充到listview。到目前为止，这一切都很好，现在我正在尝试将listview上的信息保存到另一个表中，这被证明是很困难的

我已经在网上搜索了一个星期了，但这是我加载到listview的代码

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

---

最后，它开始工作，从数据环境中调整SQLparameters以包括“Vat”，即“.子项（8）”。感谢George

错误是什么/在哪里？没有错误，我正在尝试将我添加到listview中以保存在表中的VAT包括在内。我不知道该怎么做我是vb新手。。。谢谢当我尝试添加.SubItems（8）时，我得到错误no datamember。有人请帮助什么是

连接。添加销售

？是否已将其调整为接收附加参数

。子项（8）

？@George Yes没错