求用DataSet绑—ataGridView,实现动态加载数据的代码
本人想写一个用DataSet绑—ataGridView的公共过程,然后在各窗体调用该过程,实现把数据读入到该窗本的DataGridView.

写了一点代码,但行不通.打开窗体后数据并没有在DataGridview显示,请各位指教

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
subShowDataGridview(DataGridView1, "Select * from table1 ", "连接数据库字符串 ")

End Sub


Public Sub subShowDataGridview(ByVal DataGridView As DataGridView, ByVal strCommandText As String, ByVal strConnectionSQLString As String)

Dim SqlConnection1 As New SqlConnection
Dim SqlDataAdapter1 As New SqlDataAdapter
Dim DataSet1 As New DataSet

SqlConnection1.ConnectionString = strConnectionSQLString
SqlDataAdapter1.InsertCommand.Connection = SqlConnection1
SqlConnection1.Open()
SqlDataAdapter1.InsertCommand.CommandText = strCommandText
SqlDataAdapter1.InsertCommand.ExecuteReader()
SqlDataAdapter1.Fill(DataSet1)

DataGridView.DataSource = DataSet1

End Sub

[解决办法]
Public Sub subShowDataGridview(ByVal DataGridView As DataGridView, ByVal strCommandText As String, ByVal strConnectionSQLString As String)

Dim SqlConnection1 As New SqlClient.SqlConnection
Dim SqlDataAdapter1 As New SqlClient.SqlDataAdapter
Dim SqlCommand1 As New SqlClient.SqlCommand '应该要写个sql命令
Dim DataSet1 As New DataSet

SqlConnection1.ConnectionString = strConnectionSQLString
SqlCommand1.Connection = SqlConnection1
SqlCommand1.CommandText = strCommandText
SqlDataAdapter1.SelectCommand = SqlCommand1
SqlDataAdapter1.Fill(DataSet1)
DataGridView.DataSource = DataSet1.Tables(0) 'vs2005 里DataGridView要dataset写表名,不然DataGridView里看不到数据
End Sub