要求对象的错误！！！！！！！！！急急

Question

While Not rs1.EOF
    If rs1.Fields(10) Is Null Then     ————————————要求对象的错误
        rs1.Fields(5) = rs1.Fields(10)         ——————————这样写对吗？为什么值赋不过去！
        rs1.Update
    End If
    b = rs1.Fields(10)                 ——b是date类型，这样赋值可以的吗？rs1.Fields(5)和 rs1.Fields(10)都日期类型                 
    c = Now()
    str1 = DateDiff("n", b, c)
    rs1.Fields(10) = Now()
    rs1.Fields(9) = str1
    rs1.Update
    a = "select * from card where cardid='" + rs1.Fields(0) + "'"
    rs2.Open a, conn1, adOpenKeyset, adLockPessimistic
    If str1 >= 1 Then
        rs2.Fields(1) = rs2.Fields(1) - 1
        rs2.Update
    End If
    If rs2.Fields(1) <= 0 Then
        提醒框.Text1 = rs2.Fields(0)
        提醒框.Show
        rs2.MoveNext
    End If
    rs1.MoveNext
Wend

Answer 1

仅以你这段代码，看不出问题的！ rs1 对象创建了吗？
 rs1 通过正确的操作，“存入了”所需的查询结果了吗？