请教这段程序哪里出错了!

Haoxu123

为什么在一个数据库文件中可以,在另一个数据库文件中就不能执行了呢,在线等待中...
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
    '定义用于循环的整型变量
    Dim i As Integer
    '定义字符型变量
    Dim STemp As String
    '定义数据集变量分配空间
    Dim Rs As ADODB.Recordset
    '为定义的数据集变量分配空间
    Set Rs = New ADODB.Recordset
    '为打开数据表“查询语句”字符变量赋值
    STemp = "Select * From 销售表"
    '打开“销售表”数据表
    Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    '判断"订单号"等文本框是否为空
    If IsNull(Me![客户名称]) = True Then
        '弹出提示“订单号“文本框不可以为空信息
        MsgBox "请输入'客户名称',它不可以为空!", vbOKOnly, "输入'客户名称'"
        Me![客户名称].SetFocus
    ElseIf IsNull(Me![销售品种]) = True Then
        MsgBox "请输入'销售品种',它不可以为空!", vbOKOnly, "输入'销售品种'"
        Me![销售品种].SetFocus        
    ElseIf IsNull(Me![单位]) = True Then
        MsgBox "请输入'单位',它不可以为空!", vbOKOnly, "输入'单位'"
        Me![单位].SetFocus        
    ElseIf IsNull(Me![数量]) = True Then
        MsgBox "请输入'数量',它不可以为空!", vbOKOnly, "输入'数量'"
        Me![数量].SetFocus        
    ElseIf IsNull(Me![单价]) = True Then
        MsgBox "请输入'单价',它不可以为空!", vbOKOnly, "输入'单价'"
        Me![单价].SetFocus        
    ElseIf IsNull(Me![总价]) = True Then
        MsgBox "请输入'总价',它不可以为空!", vbOKOnly, "输入'总价'"
        Me![总价].SetFocus
    Else
        Rs.MoveFirst    '把数据集指针指向第一记录
        '使用For....Next循环在数据集中搜索相同“订单号”的记录
        For i = 1 To Rs.RecordCount
            If Rs("客户名称") = Me![销售表子窗体]![客户名称] Then
                '修改“销售表”数据表字段值
                Rs("销售品种") = Me![销售品种]
                Rs("单位") = Me![单位]
                Rs("数量") = Me![数量]
                Rs("单价") = Me![单价]
                Rs("总价") = Me![总价]
                'Rs("总数") = Me![总数]
               ' Rs("总额") = Me![总额]
               
                '使用记录集的Update方法来刷新记录集
                Rs.Update
                '刷新'销售表子窗体'子窗体
                Me![销售表子窗体].Requery
                '弹出“修改完成”的提示信息
                MsgBox "销售表己经修改完成!", vbOKOnly, "修改完成"
                Exit Sub    '退出子过程
            Else
                Rs.MoveNext    '把记录指针移到下一条记录
            End If
        Next i
    End If
    '释放系统为Rs数据集分配的空间
    Set Rs = Nothing
Exit_Command24_Click:
    Exit Sub
Err_Command24_Click:
    MsgBox Err.Description
    Resume Exit_Command24_Click
End Sub

Haoxu123

两位的都试过了,都不行

Haoxu123

ADO版本也没有问题,再请教各位

Haoxu123

是指当输入完一条记录＂保存＂后，对其进行＂修改＂操作，按修改键后数据不变

Haoxu123

谢谢!