Need urgent help on VB6 programming

rezakhandaker's Avatar, Join Date: Feb 2010
Newbie Member
Hello everyone,
I'm a novice programmer trying to display Crystal Report 8.5 report (C:\Try.rpt) through my VB6 program. It is to be mentioned that the database that I'm useing is Oracle 9i installed on the same computer and Global Database Name/SID is 'exim'. I'm using the following code -
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public CnString As String
Public SQLSelect As String
Public crxApp As New CRAXDRT.Application
Public crxReport As CRAXDRT.Report
Private Sub Form_Load()
Call OpenDatabase
Call LoadReport
End Sub
Public Function LoadReport()
Set crxReport = New CRAXDRT.Report
Set crxApp = CreateObject("crystalruntime.application")
Set crxReport = crxApplication.OpenReport("C:\Try.rpt", 1)
crxReport.Database.SetDataSource rs
crvViewer.ReportSource = crxReport
End Function
Public Function OpenDatabase()
Set cn = New ADODB.Connection
CnString = "Provider=MSDAORA.1;Persist Security Info=True;User ID=scott;Password=tiger;Initial Catalog=GR;Data Source=exim"
cn.ConnectionString = CnString
cn.CursorLocation = adUseClient
rs.Open SQLSelect, cn, adOpenDynamic, adLockReadOnly
End Function
When I'm trying to run this program, I'm getting an error message - "Run-time error '-2147217887 (80040e21)': Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done."
Can anyone please check my codings and help me to rectify the problem. I'll be glad if someone can email me at with the solution to this problem. Thanks in advance.
With best regards
Reza Khandaker
4/4, Golden Tower, Golden Street,
Ring Road, Shyamoli,
Dhaka - 1207
Cell: 0088-01730-031453
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
Duplicate of Need urgent help on VB6 programming. Thread closed.