Dim connection As New SqlConnection("connectionstring")
Dim command As SqlCommand = connection.CreateCommand
command.CommandText = "SELECT * FROM employees"
Dim table as New DataTable
connection.Open
table.Load(command.ExecuteReader(CommandBehavior.CloseConnection))
Me.GridView1.DataSource = table
Me.GridView1.DataBind