Public SqlConnection_CRK As SqlConnection = New SqlConnection("Data Source =127.0.0.1;Integrated Security=true;Initial Catalog=数据库名")
'定义SqlConnection_CRK连接字符串,连接到数据库
SqlConnection_CRK.Open() '打开数据库
Dim command As SqlCommand = New SqlCommand
command.CommandText = "select * from 表名"
'要执行的SQL代码
Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(insertcommand)
Dim dataset As DataSet = New DataSet
command.Connection = SqlConnection_CRK
dataadapter.Fill(dataset, "表名")
在窗体上要有一个DataGridView
Me.DataGridView.DataSource = dataset.Tables(0).DefaultView