Problema al intentar guardar orden de compra

Question

El error es el siguiente:

Todos los procedimientos anterior me lo hace el tema es al momento de guardar. La tabla Compras consta de esto:

El Código de Guardar una parte de el es así: (Ojo el codigo de proveedor esta atras del nombre del proveedor pero no es mostrado pero si tomado para guardarlo.)

 Using cnx As New SqlConnection(ConfigurationManager.ConnectionStrings("cnxString").ToString())
            If contador_para_guardar = 1 Then
                Try
                    cnx.Open()
                    Dim textosqIngresar As New String(CType("Insert into Compras(Numero,CodProveedor,SubTotal,Igv,Total,Fecha)values(@b,@c,@d,@e,@f,@g)", Char()))
                    Dim cmda As New SqlCommand(textosqIngresar, cnx)
                    cmda.Parameters.AddWithValue("@b", Me.txtNumOC)
                    cmda.Parameters.AddWithValue("@c", Me.txtCodProveedor.Text)
                    cmda.Parameters.AddWithValue("@d", Me.txtSubTotal.Text)
                    cmda.Parameters.AddWithValue("@e", Me.txtIGV.Text)
                    cmda.Parameters.AddWithValue("@f", Me.txtTotal.Text)
                    cmda.Parameters.AddWithValue("@g", Me.FechaEmision.Text)

                    If cnx.State = ConnectionState.Open Then
                        cmda.ExecuteNonQuery()
                    End If

                    cnx.Close()
                    MsgBox("Orden de Compra Guardado Correctamente")
                    Desactivo()
                    contador_para_guardar = 0
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
                ActualizarStock()
            End If

Espero de su ayuda no se a que problema se esta refiriendo eso.

Desde ya, Muchas Gracias.

Answer 1

Fíjate en la asignación de valor para el parámetro '@b', intentas asignar la referencia del objeto 'txtNumOC' en lugar del valor contenido en la propiedad 'Text'.

cmda.Parameters.AddWithValue("@b", Me.txtNumOC.Text)

Answer 2

Oh creo que ya vi el problema me falto el .text del primero 

 cmda.Parameters.AddWithValue("@b", Me.txtNumOC)