Hi to all
Anyone can helped me. I develop using VB6 Crystal Report 7
But when i run the program I got the Error Message Server has not been open.

Dim Report As New CrystalReport1

Private Sub Form_Load()

Report.Database.LogOnServer "pdssql.dll", "Sever", "Test"
Report.Database.SetDataSource rs,
CRViewer1.ReportSource = Report

End sub

Thanks for the helped....