这个最适用
Dim cn As New System.Data.SqlClient.SqlConnection( "Data Source=(local);Initial Catalog=Northwind;Integrated Security=True ")
Dim SqlCmd As New System.Data.SqlClient.SqlCommand
SqlCmd.Connection = cn
Dim da As New System.Data.SqlClient.SqlDataAdapter()
da.SelectCommand = SqlCmd
da.SelectCommand.CommandText = "select * from Customers "
Dim mCount As Long
Dim ds As New DataSet()
da.Fill(ds)
Me.DataGridView1.DataSource = ds.Tables(0)
Dim cn As New System.Data.SqlClient.SqlConnection("Data Source=(local);Initial Catalog=Northwind;Integrated Security=True")
Dim SqlCmd As New System.Data.SqlClient.SqlCommand
SqlCmd.Connection = cn
Dim da As New System.Data.SqlClient.SqlDataAdapter()
da.SelectCommand = SqlCmd
da.SelectCommand.CommandText = "select * from Customers"
Dim mCount As Long
Dim ds As New DataSet()
da.Fill(ds)
Me.DataGridView1.DataSource = ds.Tables(0)