急关于一个很简单的VS.net 2003 报表有关问题，各位大侠快来看看

急！关于一个很简单的VS.net 2003 报表问题，各位大侠快来看看
我想导出生成pdf格式的文档，但出现以下异常：
异常详细信息:   CrystalDecisions.CrystalReports.Engine.LogOnException:   登录失败。

源错误:  


行   105：
行   106：
行   107：                 myReport.Export()
行   108：            
行   109：                
 


我的代码：
  Private   Sub   Page_Load(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load
                '在此处放置初始化页的用户代码

                If   Page.IsPostBack   =   False   Then
                        Dim   ReportDoc   As   New   ReportDocument
                        Dim   path1,   path2   As   String
                        path1   =   Server.MapPath( "CrystalReport1.rpt ")
                        ReportDoc.Load(path1)

                        Dim   TabLogInfo   As   New   TableLogOnInfo
                        Dim   Aobject   As   Object

                        Dim   Astring   As   String
                        Dim   ConString   As   String
                        Dim   SqlString   As   String

                        Dim   ADBMS   As   String
                        Dim   ADatabase   As   String
                        Dim   AServer   As   String
                        Dim   AUserID   As   String
                        Dim   APassword   As   String

                        ' '读取注册表的数据库信息
                        Dim   Aregkey   As   Microsoft.Win32.RegistryKey   =   Microsoft.Win32.Registry.LocalMachine
                        Aregkey   =   Aregkey.OpenSubKey( "SOFTWARE\SununCenter ")

                        Aobject   =   Aregkey.GetValue( "DBMS   Name ")
                        ADBMS   =   Trim(Aobject.ToString)

                        Aobject   =   Aregkey.GetValue( "Database ")