Issues OracleDataAdapter fill DataSet

See more:

VB

Oracle

dataset

I got an error when i used the OracleDataAdapter.Fill(Dataset) function, here is my code so you can see that there is no Syntax error

Public Function getList(ByVal pVar As String) As DataSet
        Dim ds As New DataSet()
        Dim oraData As OracleDataAdapter = Nothing
        Try
            Using command As New OracleCommand(q_get_menu, AccesoDatosOracle.Instance)
                AccesoDatosOracle.Instance.Open()
                command.CommandType = CommandType.StoredProcedure

                Dim parm1 As OracleParameter = New OracleParameter("pVAR", OracleDbType.Varchar2)
                parm1.Direction = ParameterDirection.Input
                parm1.Value = pVar
                command.Parameters.Add(parm1)

                Dim parm2 As OracleParameter = New OracleParameter("pcur_tablapadre", OracleDbType.RefCursor)
                parm2.Direction = ParameterDirection.Input
                parm2.Value = DBNull.Value
                command.Parameters.Add(parm2)

                Dim parm3 As OracleParameter = New OracleParameter("pcur_tablahijo", OracleDbType.RefCursor)
                parm3.Direction = ParameterDirection.Input
                parm3.Value = DBNull.Value
                command.Parameters.Add(parm3)

                command.BindByName = True
                oraData = New OracleDataAdapter(command)
                oraData.Fill(ds)

            End Using
        Catch ex As Exception
            Console.WriteLine("EL error es:  " + ex.Message)
            Throw ex
        Finally
            AccesoDatosOracle.Instance.Close()
        End Try

        Return ds
    End Function

When the debug line gets into the fill(ds) gives an error, it says that the space in the memory was already been occupied. When I declare Dim ds As DataSet = Nothing is says that it cannot take null value.

I don't know what is wrong with this code.

thanks in advance