DataGridView显示问题

DataGridView查询结果不能显示出来
Dim strQueryContent As String
        Try
            Dim strConnect As String = "data source=server;Connect Timeout=100;initial catalog=评估登记管理;user id=sa;password=;"
            sqlConnection1 = New System.Data.SqlClient.SqlConnection(strConnect)
            sqlConnection1.Open()
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        End Try
        strQueryContent = " SELECT  [项目编号],[项目名称] ,[受理人],[受理时间],[评估目的],[委托方] ,[联系人] ,[联系电话],[土地用途],[土地面积],[使用权类型],[项目完成人],[项目完成状况],[负责人],[踏勘时间],[踏勘人员],[估价方法],[项目完成时间] FROM [评估登记管理].[dbo].[地估登记表] where 项目完成人='3'"
        Try
            Dim FindDataCmd As New SqlCommand(strQueryContent, sqlConnection1)
            Dim FindAdp As New SqlDataAdapter(FindDataCmd)
            If DataSet1.Tables("结果表").Rows.Count > 0 Then
                DataSet1.Tables("结果表").Clear()
                FindAdp.Fill(DataSet1.Tables("结果表"))
                Dim Coum As New DataColumn
                Me.DataGridView1.DataSource = DataSet1.Tables("结果表")
                Me.DataGridView1.AutoGenerateColumns = True
                Me.BindingSource1.DataSource = DataSet1.Tables("结果表")
                Me.BindingSource1.DataMember = DataSet1.Tables(0).TableName.Trim
                'drocut = Me.DataGridView1.Rows.Count
            End If
            DataGridView1.Refresh()
        Catch ex As SqlException
            Console.WriteLine(ex.Message)
        End Try
        sqlConnection1.Close()
        sqlConnection1.Dispose() --------------------编程问答-------------------- “DataGridView查询结果不能显示出来”
对于这样一个问题可能有很多种情况，
1. 数据源没有数据
2. 程序问题。

楼主确信需要使用Control.Refresh 方法么？
http://msdn2.microsoft.com/zh-cn/library/system.windows.forms.control.refresh(VS.80).aspx
强制控件使其工作区无效并立即重绘自己和任何子控件。

补充：.NET技术 ,  VB.NET