ظهور رساله أثناء تحميل التقرير

أخواني

السلام عليكم ورحمة الله وبركاتة

لقد أنشئت زر أمر كل مهمته أخذ البيانات الحاليه في الداتا جريد وعرضها في تقرير من خلال هذا الكود

Function Call_report3()
		'//-اولا تعريف مسار الريبورت يكون بجانب الملف التنفيدي
		Dim OleDbConnection1 As New Data.OleDb.OleDbConnection
		OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\\Swiss.mdb;Persist Security Info=True;Jet OLEDB:Database Password=261177"
		OleDbConnection1.Open()
		Dim st As String = Application.StartupPath + "\\crpt_All.rpt"
		Dim rpt = New Crpt_All
		rpt.Load(st)

		' //--متغيرات لعمل االاتصال

		Dim crTableLogOnInfo As New TableLogOnInfo()
		Dim crConnectionInfo As New ConnectionInfo()
		' //---------جملة الاستعلام التي سترتبط بالتقرير  هام جدا   
		Dim cmd As New Data.OleDb.OleDbCommand
		Dim ds As New DataSet
		Dim dt As Data.DataTable
		Dim sql3 As String = "  select * from Tbl_tracking  as y where customer like "

		sql3 = sql3 + "'%" + T3.Text + "%'"
		cmd.CommandText = sql3


		Report.OleDbConnection1.ConnectionString = _
			 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
			Application.StartupPath & "\Swiss.mdb;Jet OLEDB:Database Password=261177;"




		Report.OleDbConnection1.Open()

		cmd.Connection = Report.OleDbConnection1
		Dim da As New Data.OleDb.OleDbDataAdapter(cmd)


		da.Fill(ds, "y")
		' // ارجاع الاستعلام للتقرير من خلال الداتا سيت 
		rpt.SetDataSource(ds.Tables("y"))

		'Dim x As New crpt
		'x.Show()


		' //لفتح الاتصال بالقاعدة	الاعدادات 
		' crConnectionInfo.ServerName = setting.t_server.ToString()
		'crConnectionInfo.UserID = .UID
		crConnectionInfo.Password = "261177"


		For Each crTable As CrystalDecisions.CrystalReports.Engine.Table In rpt.Database.Tables
			crTableLogOnInfo = crTable.LogOnInfo
			crTableLogOnInfo.ConnectionInfo = crConnectionInfo
			crTable.ApplyLogOnInfo(crTableLogOnInfo)
		Next


		crTableLogOnInfo = Nothing
		crConnectionInfo = Nothing
		'//----------------------------------------انتهت الاتصال			  
		'//-----------تشغيل الريبورت
		Report.Show()
		Report.CrystalReportViewer1.ReportSource = rpt
		'//-----------------------------------------------------
		'//هذه الطريقة فعالة 100% لاتنسونا من صالح دعائكم
		' OleDbConnection1.Close()
	End Function

وهذا الكود شغال 100% وبيعطيني المطلوب تمام لكن قبل فتح التقرير بتظهر هذه الرساله ولا أدري كيف أستطيع ازاله هذه الرسالة

الموضحة أمامكم