مشكلة في Crystalreportviewer

أستخدم الكود التالي

Dim con As New SqlConnection
		con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Database1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
		Me.CrystalReportViewer1.ReportSource = Nothing
		Try
			Dim sql As String = "select * from table  "
			Dim Data As New DataSet
			Data.Clear()
			Dim s As New SqlDataAdapter(sql, con)
			s.Fill(Data, "table_name")
			If Data.Tables("table_name").Rows.Count >= 1 Then
				Dim Report As New CrystalReport1
				Report.SetDataSource(Data.Tables("table_name"))
				con.Close()
				Me.CrystalReportViewer1.ReportSource = Report
				Me.CrystalReportViewer1.RefreshReport()
			End If

		Catch ex As Exception
			con.Close()
		End Try