Ayuda!!! Referencia a objeto no establecida como instancia de un objeto

[Angel_Nemo]

Q tal gente del foro

Tengo un problema y no se como solucionar
Hago una aplicacion utilizando visual.net y sql server, todo bien en la conexion, consultas e ingresos de datos, pero cuando ingreso datos en una tabla me despliega el mensaje : "Referencia a objeto no establecida como instancia de un objeto", aunque si hace el ingreso de datos a dicha tabla pero me despliega ese mensaje y necesito que el ingreso sea totalmente limpio, sin ningun mensaje por q sera hecho remotamente.

Mi codigo es algo asi (otras funciones de consulta estan bien, pero no se q pasa con esta:)

Imports System.Data
Imports System.Data.SqlClient
Imports SQLDatos
Imports System.IO
Imports System.Drawing.Imaging 'para trabajar con los formatos de imagen

//En esta parte hacemos varias consultas, imaganetes, y otros ingresos, y van bien

Public Class Form1
Dim StrCx As String = "Data Source=.;Initial Catalog=FloresValle;Integrated Security=True"
Private SQL As New SQLAcceso(StrCx)
Public Cn As New SqlConnection(StrCx) 'creamos un objeto tipo SqlConnection guardando el string de conexion
Public Ds As New DataSet 'dataSet creado a nivel global

//La operacion de ingreso es la siguiente:
Private sub IngresosItemProducto()
try
Dim cmd As New SqlCommand("insertxcat", Cn)'insertxcat es un procedimiento almacenado en sql server
cmd.CommandType = CommandType.StoredProcedure
Cn.Open()

Dim opara1 As New SqlParameter("@codigo_producto", SqlDbType.NVarChar)
opara1.Size = 50
opara1.Value = TxtBoxIngresosCod.Text
cmd.Parameters.Add(opara1)

Dim opara2 As New SqlParameter("@descripcion", SqlDbType.NVarChar)
opara2.Size = 50
opara2.Value = LblIngresosProd.Text
cmd.Parameters.Add(opara2)

Dim opara3 As New SqlParameter("@id_proveedor", SqlDbType.NVarChar)
opara3.Size = 50
opara3.Value = LblIngresoIDProv.Text
cmd.Parameters.Add(opara3)

Dim opara4 As New SqlParameter("@precio", SqlDbType.SmallMoney)
opara4.Value = LblIngresosPrecio.Text
cmd.Parameters.Add(opara4)

Dim opara5 As New SqlParameter("@cantidad", SqlDbType.SmallInt)
opara5.Value = TxtBoxIngresosCant.Text
cmd.Parameters.Add(opara5)

Dim oda As New SqlDataAdapter
oda.SelectCommand = cmd
oda.SelectCommand.Connection = Cn

Dim ods As New DataSet
oda.Fill(ods, "Documento")

DGVIngresos.DataSource = ods.Tables("Documento")
Cn.Close()
Catch SqlExc As SqlException
' MsgBox("Error en los campos")
'End Try


la he revisado, la he creado como sub o como funcion y nada
probe en visual.net 2005 y 2008, y sigue saliendo el mismo mensaje

por favor alguien q me ayude
Gracias