Erro no insert

[N3G4T1V3 0]

Galera to fazendo um insert e ta dando um erro estranho e num to sabendo o que é... o erro é:

 

String or binary data would be truncated. The statement has been terminated.

 

o Código do insert:

Dim Pessoa

If Juridica.Checked = True Then

Pessoa = "Jurídica"

Else

Pessoa = "Física"

End If

'Conecta com o banco SQL

Dim cn As New SqlClient.SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))

'Abre o Banco

cn.Open()

 

Dim MySQL As String = "Insert into Promotor (RazaoNome, CnpjCpf, TelPrincipal, TelAlternativo, Celular, Email, Login, Senha, Agencia, Endereco, Bairro, Cep, Cidade, Estado, Site, NomeBanco, AgenciaBanco, NumeroConta, TipoPessoa, Contato) values (@RazaoNome, @CnpjCpf, @TelPrincipal, @TelAlternativo, @Celular, @Email, @Login, @Senha, @Agencia, @Endereco, @Bairro, @Cep, @Cidade, @Estado, @Site, @NomeBanco, @AgenciaBanco, @NumeroConta, @TipoPessoa, @Contato)"

Dim Cmd As New SqlClient.SqlCommand(MySQL, cn)

Cmd.Parameters.Add(New SqlClient.SqlParameter("@RazaoNome", txtNome.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@CnpjCpf", txtCpf.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@TelPrincipal", txtComercial.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@TelAlternativo", txtAlternativo.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Celular", txtCelular.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Email", txtEmail.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Login", txtLogin.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Senha", txtSenha.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Agencia", cboAgencia.SelectedValue))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Endereco", txtEndereco.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Bairro", txtBairro.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Cep", txtCep.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Cidade", txtCidade.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Estado", txtEstado.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Site", txtSite.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@NomeBanco", txtBanco.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@AgenciaBanco", txtAgenciaBanco.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@NumeroConta", txtCc.Text))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@TipoPessoa", Pessoa))

Cmd.Parameters.Add(New SqlClient.SqlParameter("@Contato", txtContato.Text))

Cmd.ExecuteNonQuery()

[rOcKLoCo 0]

você está tentando colocar uma string maior que o permitido em tamanho... por exemplo você está tentando colocar 50 caracteres em um campo q só aceita 30... ok?Att,Carlos