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
End Sub