Dim oconn As SqlConnection = New SqlConnection()
Dim ocmd As SqlCommand = New SqlCommand()
Dim oDA As SqlDataAdapter = New SqlDataAdapter()
Dim oDS As DataSet = New DataSet()

oconn.ConnectionString = ".........."
oconn.Open()

ocmd.Connection = oconn
ocmd.CommandText = "........."
oDA.SelectCommand = ocmd
oDA.Fill(oDS, "customers")

DataGrid1.SetDataBinding(oDS, "Customers")