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
我怎么写，点确定就打印，点取消就返回

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