I am afraid it is working only like this [:'(]
Public Shared Sub AddOutputParameter(ByVal command As IDbCommand, ByVal paramName As String, ByVal paramType As String)
Dim p As New OracleClient.OracleParameter(paramName, OracleClient.OracleType.Cursor)
p.Direction = ParameterDirection.Output
command.Parameters.Add(p)
End Sub
