PublicClass Form1
Dim cnt AsNew SqlClient.SqlConnection
Dim cmd AsNew SqlClient.SqlCommand
Dim da AsNew SqlClient.SqlDataAdapter
Dim dt AsNew DataTable
Dim dv AsNew DataView(dt)
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
With cnt
.ConnectionString = "server=.;database=pubs;uid=sa; "
.Open()
EndWith
With cmd
.Connection = cnt
.CommandType = CommandType.Text
.CommandText = "SELECT * FROM Titles "
EndWith
With da
.SelectCommand = cmd
.Fill(dt)
EndWith
DataGridView1.DataSource = dv
EndSub
EndClass