Rellenar dataset manualmente

[mariano_donati]

Y mejor que un DataReader seria un ExecuteScalar, sería algo más óptimo. Eso si, siempre y cuando esos datos que deseas calcular sean los aceptados por las sentencia SQL, como calcular el total de registros, el valor maximo o minimo, etc.
Y si no es ese tipo de calculo el que deseas hacer, podrías crearte una tabla nueva si es que son muchos calculos, luego creas una nueva fila y agregas los datos manualmente.
Así sería algo como ejemplo:

Dim DS As DataSet = New DataSet("Nombre_de_tu_dataset")
Dim Tabla As DataTable = DS.Tables.Add("Tabla_de_calculos")

Tabla.Columns.Add("Columna1", Type.GetType("tipo_de_datos que contendrá la columna")
Tabla.Columns.Add("Columna2", Type.Gettype("tipo_de datos que contendrá la columna")
etc etc por la cantidad de columnas que quieras. Cada columna podría representar un calculo distinto o eso lo diagramarías vos como te guste.
Ahí ya tenes las columnas de la tabla, ahora hay que empezar a agregar las nuevas filas con los calculos:

Dim Fila As DataRow

Fila = DS.TAbles(0).NewRow() ' Acá insertas una fila nueva
Fila("Columna1") = "algún_valor" ' Acá insertas valores a la nueva fila
Fila("Columna2") = "otro_valor"

DS.TAbles(0).Rows.Add(Fila) ' Y Con esto ya quedo agregada la fila a la tabla

Y ya ahí te quedaría armada una tabla con los calculos que hiciste, y ya la puedes usar como fuente de datos del control que estés usando para mostrar los datos.
Espero que te sirva de algo.
Saludos!.