Public Function EjecutarProcedimiento() As DataSet
Try
Dim Conn As New SqlConnection(strConn)
Dim sqlCmd As New SqlCommand(Me.Nombre, Conn.SQLConn)
sqlCmd.CommandType = CommandType.StoredProcedure
Dim mParametro As StoredProcedureParameter
'Agrega las variables al procedimiento almacenado
For Each mParametro In Me.Parametros
Dim pParam As New SqlParameter(mParametro.Variable, mParametro.GetTypeProperty)
pParam.Direction = ParameterDirection.Input
pParam.Value = mParametro.Valor
sqlCmd.Parameters.Add(pParam)
Next
'SqlAdapter utiliza el SqlCommand para llenar el Dataset
Dim sda As New SqlDataAdapter(sqlCmd)
'Se llena el dataset
Dim ds As New DataSet()
sda.Fill(ds)
Conn.SQLConn.Close()
Return ds
Catch ex As Exception
Throw ex
End Try
End Function
De antemano agradezco su colaboración
![sonriente](http://static.forosdelweb.com/fdwtheme/images/smilies/smile.png)