Foros del web, para los que viven de bits

    '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