I just added the code you provided me and still it keeps on saying the server not open yet
TIA
>Ignore the error. In the Error method of the form:
>
>IF nError != 1440
> DODEFAULT()
>ENDIF
>
>
>>Hi, This is my case
>>
>>I have a crystal report 8.0 file, when I run it from Crystal not a problem since crystal asks me for user and password to connect to a MSSQL 2000 server, acctually it is conected using an ODBC
>>
>>now I built a form and dropped a crystal viewer, want to run the report, but it keeps on saying the server is not open.
>>I know it is because the password for the odbc is not store, I have to give it to crystal somehow, the question is how do I do this??
>>
>>this is my code
>>
>>
>>*** Assign the ReportName
>> tcReport = "oeinvsum.rpt"
>> LOCAL oConn
>> LOCAL oCR AS CRAXDRT.Application
>> LOCAL oRpt AS CRAXDRT.Report
>> LOCAL ocParm AS CRAXDRT.ParameterFieldDefinitions
>> LOCAL oParm AS CRAXDRT.ParameterFieldDefinition
>> WITH This
>> .WindowState = 2
>> oCR = CREATEOBJECT("CrystalRuntime.Application")
>> oRpt = oCR.OpenReport(tcReport)
>> * Get the Special Message Parameter
>> ocParm = oRpt.ParameterFields()
>> oParm = ocParm.Item(1)
>> oParm.SetCurrentValue('SAP')
>> oParm = ocParm.Item(2)
>> oParm.SetCurrentValue('SAP')
>> WITH thisform.oleCRViewer
>> .EnableExportButton = .T.
>> .EnableProgressControl = .T.
>> .ReportSource = oRpt
>> .EnableAnimationCtrl = .F.
>> .ViewReport()
>> ENDWITH
>> .Visible = .T.
>> ENDWITH
>>
.......
DO WHILE .T.
ME.Work()
ENDDO
