ADO更新问题

     sql = "select sh,shrq from yw_dd where lfddh='" & Me.lfddh & "'"
    rs.Open sql, ywcn, 1, 3, 512
    Do Until rs.EOF
    rs!sh = Forms!系统导航!txtCurrentUser
    rs!shrq = Date
    rs.Update
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing