CoolGrid表格控件与ACCESS连接保存数据的问提

为什么提示：“多步操作产生错误”
是不是代码有错误？？？Private Sub ComAdd_Click()Set ADO_RS = New Recordset
Dim MyStr As String
MyStr = "SELECT * FROM kucun "
If ADO_RS.State = adStateOpen Then ADO_RS.Close
ADO_RS.Open MyStr, DB, adOpenStatic, adLockOptimistic
If ADO_RS.RecordCount <> 0 Then
    ADO_RS.AddNew
    For i = 1 To CoolGrid1.Cols - 1
    ADO_RS.Fields("货品编号").Value = CoolGrid1.TextMatrix(i, 1)
    ADO_RS.Fields("货品名称").Value = CoolGrid1.TextMatrix(i, 2)
    ADO_RS.Fields("货品分类").Value = CoolGrid1.TextMatrix(i, 3)
    ADO_RS.Fields("尺码").Value = CoolGrid1.TextMatrix(i, 4)
    ADO_RS.Fields("颜色").Value = CoolGrid1.TextMatrix(i, 5)
    ADO_RS.Fields("款式").Value = CoolGrid1.TextMatrix(i, 6)
    **ADO_RS.Fields("进价").Value = CoolGrid1.TextMatrix(i, 7)** 提示着行有错误
    ADO_RS.Fields("销售单价").Value = CoolGrid1.TextMatrix(i, 8)
    ADO_RS.Fields("数量").Value = CoolGrid1.TextMatrix(i, 9)
    ADO_RS.Fields("所在分店").Value = CoolGrid1.TextMatrix(i, 10)
    ADO_RS.Fields("进货日期").Value = CoolGrid1.TextMatrix(i, 11)
    ADO_RS.Fields("厂商").Value = CoolGrid1.TextMatrix(i, 12)
    ADO_RS.Fields("备注").Value = CoolGrid1.TextMatrix(i, 13)
    ADO_RS.Update
    Next i
Else
End If