Rellenar un DataGrid con un DataAdapter

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms
 
  '...
  Dim con As SqlConnection
  Dim cs As String = "cadena de conexión SQL"
  Dim da As SqlDataAdapter 
  Dim ds As DataSet
 
  con = New SqlConnection(cs)
 
  da = New SqlDataAdapter("SELECT campo1, campo2 FROM tabla", con)
 
  ds = New DataSet("Nombre_Dataset")
 
  da.Fill(ds, "Nombre_Datatable")
 
  DataGrid1.SetDataBinding(ds, "Nombre_Datatable")