Recordset代码有错，请帮忙看看，谢谢

Dim rst As Object
    Set rst = CreateObject("ADODB.Recordset")
    rst.Open "TMP_库存流水明细表", CurrentProject.Connection
    Do Until rst.EOF
    If IsNull(Me.sfrDetail![实数]) Or rst!数量 = 0 Then
            Me.sfrDetail!实数 = rst!数量
        End If
       Me.sfrDetail!Recordset.MoveNext
        rst.MoveNext
    Loop

    'Me.AllowAdditions = false

显示运行错误