Private Sub cmdUpdate_Click()
    '条件判断保证输入的合理性
    '如果名称文本框为空，则显示提示信息并返回
    If Trim(Text6.Text) = "" Then
        MsgBox "名称不能为空", vbExclamation + vbOKOnly, "警告"
        '设置鼠标焦点
        Text6.SetFocus
        Exit Sub
    End If
    '判断价格文本框输入不能为空
    If Trim(Text7.Text) = "" Then
        MsgBox "价格不能为空", vbExclamation + vbOKOnly, "警告"
        '设置鼠标焦点
        Text7.SetFocus
        Exit Sub
    End If
    '判断价格文本框输入必须为数字
    If Not IsNumeric(Trim(Text8.Text)) Then
        MsgBox "价格必须为数字", vbExclamation + vbOKOnly, "警告"
        '设置鼠标焦点
        Text8.SetFocus
        '使文本变为选中状态
        '设置选择的起始位置和选择的长度
        Text8.SelStart = 0
        Text8.SelLength = Len(Text8.Text)
        Exit Sub
    End If
    '判断入库数量文本框输入必须为数字
    If Not IsNumeric(Trim(Text9.Text)) Then
        MsgBox "价格必须为数字", vbExclamation + vbOKOnly, "警告"
        '设置鼠标焦点
        Text9.SetFocus
        '使文本变为选中状态
        '设置选择的起始位置和选择的长度
        Text9.SelStart = 0
        Text9.SelLength = Len(Text9.Text)
        Exit Sub
    End If
之前这些是各种判断，接下来我想讲输入的信息保存到数据库Data1中，应该如何保存
我的书中是需要UpdataBatch adAffectAll，我的vb里面没有啊 不知道怎么回事
还有书中是利用ADo的 而我要用access2000
谢谢了 我自己写的
    '保存Data1的记录集的修改
    Data1.Recordset.AddNew
    Data1.Recordset.Update
    '保存后，设置按钮状态
    SetButtons True
有问题

建议你的程序改用文件的方式保存吧，这会比较方便！