boton guardar, eliminir y actualizar en visua 2012

[lilianamaite01]

hola te cuento que ya resolvi lo del codigo de actualizar y eliminar pero al guardar un nuevo paciente me dice un error.

LOS DATOS DE CADENA O BINARIOS SE TRUNCARÍAN

SE TERMINÓ LA INSTRUCCIÓN.

ESTE ES EL CODIGO:

Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click

Try
Using conexion As New SqlConnection("Data Source=ASHLEY;Initial Catalog=BARRAQUEL;Integrated Security=True")
conexion.Open()
Using cmd As New SqlCommand()
cmd.Connection = conexion
cmd.CommandText = "insert into CLIENTES(CODIGO_CLIENTES,CI_DEL_CLIENTE,FECHA,NOMB RE,APELLIDOS,DIRECCION,EDAD,PROFESION,SEXO,TELEFON O,CELULAR,CORREO_ELECTRONICO,OD_ESFERA,OD_CILINDRO ,OD_EJE,OD_PRISMA,OD_ADICCION,OI_ESFERA,OI_CILINDR O,OI_EJE,OI_PRISMA,OI_ADICCION,DP,ALT,OBSERVACION_ CLIENTE) VALUES(@CODIGO_CLIENTES, @CI_DEL_CLIENTE, @FECHA, @NOMBRE, @APELLIDOS, @DIRECCION, @EDAD, @SEXO, @PROFESION, @TELEFONO, @CELULAR, @CORREO_ELECTRONICO, @OD_ESFERA, @OD_CILINDRO, @OD_EJE, @OD_PRISMA, @OD_ADICCION, @OI_ESFERA, @OI_CILINDRO, @OI_EJE, @OI_PRISMA, @OI_ADICCION, @DP, @ALT, @OBSERVACION_CLIENTE)"

cmd.Parameters.AddWithValue("@CODIGO_CLIENTES", CODIGO_CLIENTESTextBox.Text)
cmd.Parameters.AddWithValue("@CI_DEL_CLIENTE", CI_DEL_CLIENTETextBox.Text)
cmd.Parameters.AddWithValue("@FECHA", FECHADateTimePicker.Text)
cmd.Parameters.AddWithValue("@NOMBRE", NOMBRETextBox.Text)
cmd.Parameters.AddWithValue("@APELLIDOS", APELLIDOSTextBox.Text)
cmd.Parameters.AddWithValue("@DIRECCION", DIRECCIONTextBox.Text)
cmd.Parameters.AddWithValue("@EDAD", EDADTextBox.Text)
cmd.Parameters.AddWithValue("@PROFESION", PROFESIONTextBox.Text)
cmd.Parameters.AddWithValue("@SEXO", SEXOComboBox.Text)
cmd.Parameters.AddWithValue("@TELEFONO", TELEFONOMaskedTextBox.Text)
cmd.Parameters.AddWithValue("@CELULAR", CELULARMaskedTextBox.Text)
cmd.Parameters.AddWithValue("@CORREO_ELECTRONICO", CORREO_ELECTRONICOTextBox.Text)
cmd.Parameters.AddWithValue("@OD_ESFERA", OD_ESFERATextBox.Text)
cmd.Parameters.AddWithValue("@OD_CILINDRO", OD_CILINDROTextBox.Text)
cmd.Parameters.AddWithValue("@OD_EJE", OD_EJETextBox.Text)
cmd.Parameters.AddWithValue("@OD_PRISMA", OD_PRISMATextBox.Text)
cmd.Parameters.AddWithValue("@OD_ADICCION", OD_ADICCIONTextBox.Text)
cmd.Parameters.AddWithValue("@OI_ESFERA", OI_ESFERATextBox.Text)
cmd.Parameters.AddWithValue("@OI_CILINDRO", OI_CILINDROTextBox.Text)
cmd.Parameters.AddWithValue("@OI_EJE", OI_EJETextBox.Text)
cmd.Parameters.AddWithValue("@OI_PRISMA", OI_PRISMATextBox.Text)
cmd.Parameters.AddWithValue("@OI_ADICCION", OI_ADICCIONTextBox.Text)
cmd.Parameters.AddWithValue("@DP", DPTextBox.Text)
cmd.Parameters.AddWithValue("@ALT", ALTTextBox.Text)
cmd.Parameters.AddWithValue("@OBSERVACION_CLIENTE" , OBSERVACION_CLIENTETextBox.Text)


cmd.ExecuteNonQuery()

End Using
End Using
MessageBox.Show("GUARDADO CON EXITO")

Catch ex As Exception
MessageBox.Show(ex.Message)

Limpiar()
mostrargrid()
End Try

ESPERO PUEDAS AYUDARME..