Vba 从cbox获取另一个值的第一个记录集的距离

我有这段代码，我从列表中获取了一些值，是的，我想从cbox中获取另一个值，我试图关闭记录集，但是，我有一个错误：

 Private Sub cmdAñadir_Click()
 Dim VARITEM
 Dim RS As DAO.Recordset
 Set RS = CurrentDb.OpenRecordset("SELECT TipoProducto, Descripcion, Proveedor, RefSap, RefProveedor FROM tblCarrito")

 For Each VARITEM In Me.Lista0.ItemsSelected
     RS.AddNew 
         RS!TipoProducto = Me.Lista0.Column(1, VARITEM)
         RS!Descripcion = Me.Lista0.Column(2, VARITEM)
         RS!Proveedor = Me.Lista0.Column(3, VARITEM)
         RS!RefSap = Me.Lista0.Column(4, VARITEM)
         RS!RefProveedor = Me.Lista0.Column(7, VARITEM)
     RS.Update
     RS.Close    
Next


Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("tblCarrito")
 With rst
      .AddNew
      .Fields("destino") = Cuadro_combinado70.Value
      .Update
 End With

 End Sub

---

问题解决了，我使用bucle for each捕捉cbox的值和list的值。

---

感谢您的关注

您没有关闭任何记录集。请尝试

RS.Close

错误是什么以及哪一行导致了错误？是的，我尝试了。我在运行时遇到了错误3314。在TBLCARITO.TipoProducto字段中写入一个值，程序将在中停止。最后更新