求一个vb.net连接sqlserver并且调用sqlserver表中的内容显示在gridview中的代码或方法

Imports System.Data.SqlClient......Sub SQL()
Dim DataGridView1 As New DataGridView
Dim con As New SqlConnection("connectionString")
Dim da As New SqlDataAdapter("select * from [表名]", con)
Dim ds As New DataSet
da.Fill(ds, "表名")
DataGridView1.DataSource = ds.Tables("表名")
End Sub