lsRS.AddNew
            For i = 0 To 52
                lsRS.Fields(i) = RS.Fields(i)
            Next
            lsRS.Update
            RS.MoveNext
        RS.MoveFirst
    now_find = Not now_find
   MsgBox ("确定打印吗"), vbOKCancel, " 提示"
DataReport.DataMember = "Command2"
        Unload DataEnvironment
        DataReport.Show
While Not lsRS.EOF()
lsRS.Delete
lsRS.MoveNext
Wend
我怎么写，点确定就打印，点取消就返回

If MsgBox("是否打印?", vbYesNo) = vbYes Then
        '打印
    End If

唉，我把end if 放到打印前了
才学不久

自己遇到的问题自己最清楚，专家一点即通。但是对于一个没有介入此问题的人来说，无论是提的问题，还是给的答案，都不甚清楚。