مشكلة فى التقارير مع vb.net 2010 التقرير يظهر حقول البيانات بداتا غير سليمة خطا

لانه لايوجد اتصال مع قاعدة البيانات

استخدم هذه الدالة

(""= Public Sub GETSERVER(ByVal rpt As Object, ByVal DATABASENAME As String, Optional ByVal USER As String = "", Optional ByVal PASSWORD String  
        Dim I As Integer
        Dim TBL1 As New CrystalDecisions.Shared.TableLogOnInfo
     
           "اسم السيرفر"= TBL1.ConnectionInfo.ServerName 
         "اسم السيرفر"=   TBL1.ConnectionInfo.ServerName 
           ""= TBL1.ConnectionInfo.Password 
            ""= TBL1.ConnectionInfo.UserID 
            TBL1.ConnectionInfo.IntegratedSecurity = True
       
        For I = 0 To rpt.Database.Tables.Count - 1
            rpt.Database.Tables(I).ApplyLogOnInfo(TBL1)
        Next I
    End Sub

شكرا جددددددددددددددا على ردك انا ليس بتعلم لوسمحت

لو شرح بسيط اضع الكود فين