哪位给个类似库存管理的源码看看好吗？

Question

或者有教程，玩VB遇到问题。
Private Sub RK_Click()
  入库.Recordset.AddNew
  入库.Recordset("名称") = 名称.Text
  入库.Recordset("供应商") = 供应商.Text
  入库.Recordset("数量") = 数量.Text
  入库.Recordset("单价") = 单价.Text
  入库.Recordset("入库时间") = Date + Time
  入库.Recordset("备注") = 备注.Text
  入库.UpdateRecord
  If Err.Number = 3021 Then
    库存.Recordset.AddNew
    库存.Recordset("名称") = 名称.Text
    库存.Recordset("供应商") = 供应商.Text
    库存.Recordset("数量") = 数量.Text
    库存.Recordset("单价") = 单价.Text
    库存.UpdateRecord
  Else
    库存.Recordset.Move
    库存.Recordset.Edit
    库存.Recordset("数量") = 库存.Recordset("数量").Value + Val(数量.Text)
    库存.Recordset.Update
  End If
End Sub
本想在入库时如果库存表中有则修改数量，没有则添加。
但上面无法实现。而且还不知道如何定位到要修改的记录。VB盲人。

Answer 1

我想根据查询条件查询，但数据源变化出了点小问题。库存.RecordSource = "select * from 库存 where [数量]='" + Val(数量.Text) + "'"
库存.Refresh数量的数据类型是数字，文本框数量如何输入？数量.Text不行，Val(数量.Text)也不行。
还有一个列是价格，文本框输入怎么输入到数据库货币类型？！？！？

Answer 2

我做过！
你给个Ｅ-mail我发给你．

Answer 3

直接用textbox与数据库的字段邦定不是更好吗？