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.