SoloCodigo

Hola, hace unos días comencé a escribir código para manatenimiento de una base de datos en Oracle, lo cual es nuevo para mi, porque siempre utilizé SQL, y para visualizar los datos no hay problemas, solo cuando quiero eliminar datos o grabarlos, me aparece el probelma, este es el código de la aplicación:

Try
            Dim da As New OracleDataAdapter
            Dim prm As OracleParameter
            da.InsertCommand = New OracleCommand("Insert Into CONT_D Values (@cod,@fec,@per,@aum,@uso,@mod,@com)")

            prm = New OracleParameter("@cod", txtcod.Text)
            prm.OracleType = OracleType.Char
            prm.Size = 5
            prm.Direction = ParameterDirection.Input
            da.InsertCommand.Parameters.Add(prm)

            prm = New OracleParameter("@fec", txtfec.Text)
            prm.OracleType = OracleType.DateTime
            prm.Direction = ParameterDirection.Input
            da.InsertCommand.Parameters.Add(prm)

            prm = New OracleParameter("@per", txtper.Text)
            prm.OracleType = OracleType.VarChar
            prm.Size = 50
            prm.Direction = ParameterDirection.Input
            da.InsertCommand.Parameters.Add(prm)

            prm = New OracleParameter("@aum", txta.Text)
            prm.OracleType = OracleType.VarChar
            prm.Size = 80
            prm.Direction = ParameterDirection.Input
            da.InsertCommand.Parameters.Add(prm)

            prm = New OracleParameter("@uso", txtu.Text)
            prm.OracleType = OracleType.VarChar
            prm.Size = 80
            prm.Direction = ParameterDirection.Input
            da.InsertCommand.Parameters.Add(prm)

            prm = New OracleParameter("@mod", txtm.Text)
            prm.OracleType = OracleType.VarChar
            prm.Size = 80
            prm.Direction = ParameterDirection.Input
            da.InsertCommand.Parameters.Add(prm)

            prm = New OracleParameter("@com", rtcom.Text)
            prm.OracleType = OracleType.VarChar
            prm.Size = 200
            prm.Direction = ParameterDirection.Input
            da.InsertCommand.Parameters.Add(prm)

            da.InsertCommand.ExecuteNonQuery()
            MsgBox("Registro Insertado")
            da = Nothing

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

ELIMINAR ------>

Try
            Dim da As New OracleDataAdapter()
            Dim prm As OracleParameter
            Dim cod As Char = InputBox("Ingrese Código")
            da.DeleteCommand = New OracleCommand("delete from CONT_D where cod=@cod")

            prm = New OracleParameter("@cod", cod)
            prm.OracleType = OracleType.Char
            prm.Size = 5
            prm.Direction = ParameterDirection.Input
            da.DeleteCommand.Parameters.Add(prm)
            da.DeleteCommand.ExecuteNonQuery()
            MsgBox("registro eliminado")
            da = Nothing
            prm = Nothing
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Para el código agrgué una referencia a OracleClient, y cel error me aparece cada vez que que se ejecuta el ExecuteNonquery, espero que alguien me pueda ayudar, y gracias de antemano.