Private Sub Report_Open (Cancel As Integer) Dim blnResultintResult As Integer Dim strWarning As String
strWarning = "This report may take some time." & _
" Or press Cancel to abort the operation."
intResult = MsgBox (strWarning, vbOKCancel, "Warning") If intResult = vbCancel Then
Cancel = True End If