templic 0 Newbie Poster

hi guys

i have created a crystal report using crystal XI which accesses its data from Oracle Database through OLEDB.Now i am trying to call the report using VB6 and i get this error at the point of viewing the report.
here is my code

'my connection string in a module
Option Explicit
Global conn As New ADODB.Connection
Sub Main()
conn.Open _
"Provider = OraOLEDB.Oracle;" & _
"Data Source=myservername;" & _
"Initial Catalog=mydatabase;" & _
"User ID=myusername;" & _
"Password=mypassword;"
Form1.Show
End Sub

Dim crxApp As New CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
Dim CrtParameters As CRAXDRT.ParameterFieldDefinitions
Dim simula As String
Dim OrderNo As String
'put the report inside the same folder as your .vbp

Set crxRpt = crxApp.OpenReport(App.Path & "\Invoice.rpt", 1)

OrderNo = Trim(GetSetting("NatFoods", "Inv", "Order_no"))
If IsNull(OrderNo) Then
Exit Sub
End If
With crxRpt
.DiscardSavedData

Set CrtParameters = crxRpt.ParameterFields
.ParameterFields.GetItemByName("order number").AddDefaultValue OrderNo 'simula

End With
Me.WindowState = vbMaximized
CrystalActiveXReportViewer1.Width = 15000 '.Width = Me.Width '- 200
CrystalActiveXReportViewer1.Height = 14500 ' Me.Height '- 500
CrystalActiveXReportViewer1.EnableSelectExpertButton = True
CrystalActiveXReportViewer1.EnablePrintButton = True
CrystalActiveXReportViewer1.DisplayGroupTree = False
CrystalActiveXReportViewer1.EnableRefreshButton = False
CrystalActiveXReportViewer1.DisplayToolbar = True
CrystalActiveXReportViewer1.EnableToolbar = True
CrystalActiveXReportViewer1.ReportSource = crxRpt
CrystalActiveXReportViewer1.ViewReport 'the error comes at ths point

the error is
crystal reports activex designer prompting failed with the following error message Error Code 0x80004005

then the second window
login failed

please help m stuck m actually at a client i desperately need your help

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.