Estimado, para tal efecto tienes 2 opciones.
- Crear el dataset via diseño y agregar comandos de sql y actualizarlos en la misma vista para que tengan todos los datos que necesites.
- La otra opcion es crear el dataset via codigo, que por lo demas es la opcion que recomiendo. Y deberias hacerlo de esta forma:
Código:
'Definir la cadena de Conexión
Dim cnn As New SqlConnection("CADENA DE CONEXION AL SERVIDOR")
'Crear el SQLDataAdapter
Dim da As New SqlDataAdapter("Select * from alguna_tabla", cnn)
'Crear el DataSet
Dim ds As New DataSet
'Llenar el DataTable
da.Fill(ds, "Alguna_Tabla")
'Aca pones el codigo para recorrer el dataset, pero antes preguntamos
'si existe al menos 1 tabla en el dataset
if ds.tables.count > 0 then
for i as integer = 0 to ds.tables(0).rows.count
msgbox ds.tables(0).rows(i)(0).toString().Trim()
'etc
'etc
'etc
next
end if
Espero haberte guiado un poco...