Please Help: Run-time error

I was trying to export crystal report by Email using VB program. Below is my code:

-----------------------------------------------------------------------
Private Sub Form_Load()
With Report
.ExportOptions.DestinationType = crEDTEMailMAPI
.ExportOptions.MailToList = "[email protected]"
.ExportOptions.MailSubject = "XXX"
.ExportOptions.MailMessage = "Test"
.ExportOptions.FormatType = crEFTExactRichText
.Export (False)
End With
End Sub
------------------------------------------------------------------------

I got an error message when I run it.
Run-time error '-2147192184(80047288)':
Server has not yet been opened.

Does anyone could explain it for me?
Thanks!

bump