运行错误91

 Dim strSql        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset
    Dim rstTmp        As Object 'DAO.Recordset


    Set rst = CreateObject("ADODB.Recordset")
    rst.Open "TMP_库存流水明细表", CurrentProject.Connection, adOpenDynamic, adLockOptimistic


    Do Until rst.EOF
    If rst!实数 = 0 Then rst!实数 = rst!数量
    rst.Update
    rst.MoveNext

    Loop

老大，是加载在edit窗体里，谢谢你再看一下