ظهور الفورم فوق تقرير

con.ConnectionString = "Data Source=HAJAR;Initial Catalog=company;Integrated Security=True"

		Dim st, str, s As String
		st = "Select * from Staff where S_ID ='" & Trim(ID_staff.Text) & "' "
		Dim _adpt As New System.Data.SqlClient.SqlDataAdapter(st, con)
		Dim DATAS As New DataSet
		_adpt.Fill(DATAS, "T1")


		Try



			str = "Select P_ID,Name,L_NO from Post where S_ID ='" & Trim(ID_staff.Text) & "' "
			Dim _adpt0 As New System.Data.SqlClient.SqlDataAdapter(str, con)

			_adpt0.Fill(DATAS, "T2")
		Catch ex As Exception

		End Try


		Try
			s = "Select Goal.G_NO,goal.Description,Goal.time_exe,Goal_Post.S_Time,Goal_Post.E_Time," _
						 & "Goal_Post.exe_Percentage  FROM Goal INNER Join Goal_Post ON Goal_Post.G_NO = Goal.G_NO " _
						  & " INNER Join  Post ON Goal_Post.P_ID= Post.P_ID " _
						  & "where Post.S_ID ='" & Trim(ID_staff.Text) & "'"
			Dim _adpt1 As New System.Data.SqlClient.SqlDataAdapter(s, con)

			_adpt1.Fill(DATAS, "T3")

		Catch ex As Exception

		End Try

		CrystalReportViewer2.Visible = True
		CrystalReportViewer2.Dock = DockStyle.Fill
		Me.WindowState = FormWindowState.Maximized
		Try
			Dim Report As New CrystalReport2
			Report.SetDataSource(DATAS)
			CrystalReportViewer2.ReportSource = Report
		Catch
		End Try
	End Sub

لا اعلم سبب مشكله بصراحه هل من حل ؟؟