[محمد صادق حسن]

لدي برنامج بنظام vb.net وتقارير كريستال ريبورت يعمل على شبكة داخلية مكونة من 5 اجهزة
التقارير تطبع بدون مشاكل في 3 اجهزة وفي جهازين تظهر المشكلة التالية

ارجو الإفادة لمن لديه حل للمشكلة 
 وهذه دالة الإتصال 

كود :

Public Sub LogOn(ByVal poReport As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal strServer As String, ByVal strTable As String, ByVal strUsername As String, ByVal strPassword As String)


       Dim loConnInfo As New CrystalDecisions.Shared.ConnectionInfo
       loConnInfo.ServerName = strServer.ToString.Trim

       'MsgBox(strServer)
       loConnInfo.DatabaseName = strTable.ToString.Trim


       loConnInfo.UserID = strUsername.ToString.Trim

       'MsgBox(strUsername)
       loConnInfo.Password = strPassword.ToString.Trim

       ' MsgBox(strPassword)
       loConnInfo.IntegratedSecurity = False

       Dim loTables As Tables
       Dim loTable As CrystalDecisions.CrystalReports.Engine.Table
       Dim loTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo
       loTables = poReport.Database.Tables

       For Each loTable In loTables
           loTableLogonInfo = loTable.LogOnInfo
           loTableLogonInfo.ConnectionInfo.UserID = strUsername
           loTableLogonInfo.ConnectionInfo.Password = strPassword
           loTableLogonInfo.ConnectionInfo.ServerName = strServer
           loTableLogonInfo.ConnectionInfo.DatabaseName = strTable
           loTableLogonInfo.ConnectionInfo.IntegratedSecurity = False
           loTable.ApplyLogOnInfo(loTableLogonInfo)

       Next
   End Sub

[تركي الحلواني]

إستبدل الاتصال المباشر بالإتصال بـ DataSet