Como crear una funcion que devuelva un dataset

[Lacha]

Mi problema es el siguiente:

quiero crear una rutina que me permita, invocarla pasandole la sentencia sql, y que me devuelva un dataset.

La razon principal es que quiero abrir y cerrar la conexion a la base de datos en esa rutina.

Quizas la solucion no sea utilizar un dataset, pero no se me ocurre como lograr, luego de invocada esta funcion, que yo pueda recorrer un cursor.

la rutina de conexion que utilizo son:

Public Shared Function LeeBD(ByVal Sentencia As String) As System.Data.DataSet
Dim Conexion As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("server=192.16 8.1.1; database=bd; User Id=user; Password=password")

Dim Comando As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()
Dim RecordS As System.Data.SqlClient.SqlDataReader

Conexion.Open()
Comando = Conexion.CreateCommand
Comando.CommandText = Sentencia
****LeeBD= aqui esta la duda, como paso un SqlDataReader a un DataSet
****o, que otra opcion se les ocurre
Conexion.Close()

Si alguien tiene una idea sera muy bienvenida.

Desde ya muchas gracias.

[dadabit]

Dim ds As New DataSet
Using conn As New SqlConnection("Server=servidor\sqlexpress;integrat ed security=true;database=Northwind;uid=sa;pwd=;")
Dim command As New SqlCommand("select * from customers", conn)
conn.Open()
ds.DataSetName = "Customers"
ds.Load(command.ExecuteReader(), LoadOption.OverwriteChanges, "customers")

End Using

Encontre esto en mis archivos. Lee la tabla costumers de northwind (ejemplo) de sqlServer y todo el resultado lo pasa al data set, ya te construye los headers...tenia otro donde le especificabas el nombre a los headers, pero no lo hayo...

Saludos

[Lacha]

Gracias, lo pruebo y comento.