Manipulating a Crystal Report within VB

I am using VB 6 and Crystal Reports 10.
I want to be able to send a .pdf version of the report to an e-mail address(es).
So far I have the following.
Global crxApplication As New CRAXDRT.Application
Global crxReport As CRAXDRT.Report

Set crxReport = crxApplication.OpenReport(strReportPath)
With crxReport
.DiscardSavedData
.ExportOptions.DestinationType = crEDTEMailMAPI
.ExportOptions.formatType = crEFTPortableDocFormat
.ReportTitle = strReportName
.DisplayProgressDialog = False
.ExportOptions.MailSubject = "Test" 'strMsgSubject
.ExportOptions.MailMessage = strMsgBody
.ExportOptions.MailToList = "stanton.schmidt@domtar.com" 'strMsgRecips
.ParameterFields(1).AddCurrentValue (strParams(0))
.ParameterFields(2).AddCurrentValue (Val(strParams(1)))
.ParameterFields(3).AddCurrentValue (Val(strParams(2)))
.Export

End With
When I do the .Export a window pops up that allows me to select the format type and Destination,
both of which I thought I had set already in the above code. The format that is display in this window
is the format that I set above but the destination is not. When I select the correct destinaiton (MAPI)
and click on the OK button I get an error message as follows:
Error # -2147189176 has occurred!
Logon Failed.
Details: 28000:[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'reports'.

The Report is set up to use a DSN that uses a user id of 'reports'.

How do I provide the password so it will access the DSN correctly?
Why am I getting the window that asks for the format and destination?

Any help will be appreciated.
Thanks,
Stanton

Hmm, you show an ADO error but didn't post any code that would cause the error.

In your code, try

conn.open dsn=name, user, password

This will provide the username and password to the connection.

Try:

.Export False