این اررور چی میگه؟

[moshaveran]

دوستان این اررور را چطوری باید رفعش کرد؟ اصلاً چی میگه؟

Run-time error '-2147417848(800101108)'
Automation Error
The object invoked has disconnected from its clients.

[!Plus]

اگه ممكنه سورس برنامه تون رو بذاريد... تا ببينيم مشكل از كجاست...!؟!

با تشكر...!؟!

[IP007]

میگه آبجکت از سرویس دهندش (جایی که آبجکت بهش سرویس میده!؟!) جدا شد!؟!

[moshaveran]

اگه ممكنه سورس برنامه تون رو بذاريد... تا ببينيم مشكل از كجاست...!؟!

با تشكر...!؟!

من برنامه ای با vb6 دارم که گزارش هام داخل کریستال ریپورت 8.5 تهیه شده اند و با sql2000 هم کار میکنم که دیتابیسم user و pass داره.
اول این مشکل را داشتم که وقتی فرم های حاوی گزارش باز می شدند قبل از اینکه گزارش زو نمایش بده پنجره Data Link Properties باز میشد که پسورد دیتابیس را می خواست. باید یه جوری username و password رو داخل دستورات برنامم بهش می دادم چون کاربر نباید پسورد دیتابیس راداشته باشه.

Dim m_Proj As CRAXDDRT.Application
Dim m_Report As CRAXDDRT.Report
Private Sub UserForm_Activate()
Dim ReportName As String
ReportName = "...\change_name.rpt"
Set m_Proj = New CRAXDDRT.Application
Set m_Report = m_Proj.OpenReport(ReportName)
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport
MsgBox "Êåíå ÒÇÑÔ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "åÔÏÇÑ"
CRViewer1.Refresh
End Sub

بعد از یکم جستجو فهمیدم که باید دستوراتم رو به شکل زیر تغییر بدم. Data source گزارش ها رو داخل خود برنامه set کنم نه هنگام طراحی توی کریستال ریپورت:

Dim m_Report As CRAXDDRT.Report
Dim strcon As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.RecordSet
Dim mn As String
Private Sub UserForm_Activate()
strcon = "Provider=MSDASQL;Driver={SQL Server}; Server=NP02;uid=user;pwd=pass"
strcon.Open
mn = "select * from change_name_report"
cmd.ActiveConnection = strcon
cmd.CommandText = mn
Set rs = cmd.Execute
Dim ReportName As String
ReportName = "D:\change_name.rpt"
Set m_Report = New CRAXDDRT.Report
*** m_Report.Application.OpenReport (ReportName)
m_Report.Database.SetDataSource (rs)
CRViewer1.ViewReport
MsgBox "Êåíå ÒÇÑÔ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "åÔÏÇÑ"
CRViewer1.Refresh
End Sub

ولی حالا این اررور را میده :

Run-time error '-2147417848(800101108)'
Automation Error
The object invoked has disconnected from its clients

هرچی هست مربوط به خط *** میشه. مشکل از کجاست؟ چطوری رفعش کنم؟