Inserir dados na base de dados

Question

Boas pessoal

Estou a tentar inserir dados na base de dados e dá-me um erro no           cmd.ExecuteNonQuery(), a dizer que  a String ou dados binários serão trancados. A instrução foi encerrada.

[code=vb]

  Const constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Desktop\Base de Dados.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

Dim db As New SqlConnection(constr)

            db.Open()

            Dim varsql As String

            ' Inserir na tabela clientes

            varsql = "insert into Stocks(CodigoStock, Fornecedor, Categoria, Produto, Quantidade, Preco_Compra_Und)" & "values(@CodigoStock, @Fornecedor, @Categoria, @Produto, @Quantidade, @Preco_Compra_Und)"

            Dim cmd As New SqlCommand(varsql, db)

            ' linha da base de dados

            cmd.Parameters.Add(New SqlParameter("@CodigoStock", TxtStock.Text))

            cmd.Parameters.Add(New SqlParameter("@Fornecedor", ComboFornecedores.Text))

            cmd.Parameters.Add(New SqlParameter("@Categoria", TxtCategoria.Text))

            cmd.Parameters.Add(New SqlParameter("@Produto", Txtproduto.Text))

            cmd.Parameters.Add(New SqlParameter("@Quantidade", TxtQuantidade.Text))

            cmd.Parameters.Add(New SqlParameter("@Preco_Compra_Und", TxtPreco.Text))

            cmd.ExecuteNonQuery() 'erro

            db.Close()

            MsgBox("inserido com sucesso!", MsgBoxStyle.Information, "Mensagem de Confirmação")

[/code]