VB addnew 不能加数据

可以查出重复编号，但不能向数据库里加数据！
不知道是什么问题！
Private Sub AddSell_Click()
Dim rs As New ADODB.Recordset
Dim strsql As String
'If IsNull(txtSellID.Text) Then
'MsgBox "请输入销售商品编号", vbCritical + vbOKOnly, "错误"
'End If
strsql = "select * from Q_Sell where SellID='" & Val(txtSellID.Text) & "'"
Set rs = GetRs(strsql)
If rs.RecordCount > 0 Then
MsgBox "商品编号已存在！", vbInformation + vbOKOnly, "提示"
Else
rs.AddNew
rs("SellID").Value = Trim(txtSellID.Text)
rs("SellName").Value = Trim(txtSellName.Text)
rs("Price").Value = Trim(txtPrice.Text)
rs("Unit").Value = Trim(txtUnit.Text)
rs("Sum").Value = Trim(txtSum.Text)
rs("Count").Value = Trim(txtCount.Text)
rs("Date").Value = Trim(Format(Now, "yyyy-mm-dd"))
rs.Update
MsgBox "添加成功！", vbInform

addnew加不进数据？ vb addnew的问题 sql数据库，只能修改，不能添加数据,用rs.addnew时出错。 vb中用ADDNEW怎么总有问题????? 有关VB中ADO 的AddNew的问题 VB用Data1.Recordset.AddNew为什么只是更新原有记录？ VB + Mssql 不能录入太长的数据 vb中的可视化数据管理器不能使用?该昨办? vb中限定SQL数据不能重复的问题 在VB中不能实现串口数据的接收