Logon Failed! when exporting Rpt to PDF

Hello,

I still have this problem when I try to export a crystal report to a pdf file in Visual Basic.net 2003.


here is my code:

Code:

---

Dim crReportDocument As ReportDocument
            Dim crExportOptions As ExportOptions
            Dim crDiskFileDestinationOptions As DiskFileDestinationOptions

            Dim exportFilePath As String = "C:\" + Format(Now, "yyMMdd") + ".pdf"

            If Dir(exportFilePath) <> "" Then
                Kill(exportFilePath)
            End If

            'Create an instance of the Chart report
            crReportDocument = New rptReportDS

            ''Set the options for saving the exported file to disk
            crDiskFileDestinationOptions = New DiskFileDestinationOptions
            crDiskFileDestinationOptions.DiskFileName = exportFilePath

            'Set the exporting information
            crExportOptions = crReportDocument.ExportOptions
            With crExportOptions
                .DestinationOptions = crDiskFileDestinationOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
            End With


            Dim rpt As New rptReportDS  'Nombre del Reporte.
            Dim myConnection As SqlClient.SqlConnection
            Dim MyCommand As New SqlClient.SqlCommand
            Dim myDA As New SqlClient.SqlDataAdapter
            Dim myDS As New DataSet1
            '  Me.daHistPorFechas.SelectCommand.Parameters("@Fecha1").Value = Fecha1


            myDA.SelectCommand = MyCommand
            Me.SqlDataAdapter1.Fill(Me.DataSet11) ' Llena el Reporte.
            rpt.SetDataSource(Me.DataSet11)

      CrystalDecisions.Shared.ConnectionInfo

       

            crReportDocument.SetDatabaseLogon("ACHReader", "ACHReader", "GDB03SQL", "ACHReader")

            crReportDocument.Export()

---

Thanks for suggestions,

Ed