Private Sub Btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnguardar.Click
If Btnguardar.Text = Guardar Then
Dim comandoguardar As New OleDbCommand( insert into clientes values (' & TextBox2.Text & ',' & TextBox21.Text & ',' & TextBox3.Text & ',' & TextBox1.Text & ', ' & TextBox4.Text & ',' & TextBox6.Text & ',' & TextBox5.Text & ',' & TextBox7.Text & ', ' & ComboBox1.Text & ',' & TextBox8.Text & ',' & TextBox9.Text & ',' & TextBox10.Text & ', ' & TextBox12.Text & ',' & TextBox13.Text & ',' & TextBox14.Text & ',' & TextBox15.Text & ', ' & ComboBox2.Text & ',' & ComboBox3.Text & ', ' & TextBox28.Text & ',' & TextBox26.Text & ', ' & TextBox27.Text & ') , conexión)
conexión.Open()
comandoguardar.ExecuteNonQuery()
conexión.Close()
MsgBox( REGISTRO GRABADO )
comandoguardar = Nothing
Else
Dim comandomodificar As New OleDbCommand( update clientes set cod_cli=' & TextBox2.Text & ', nombre_fiscal_cli=' & TextBox21.Text & ', nif_cli=' & TextBox3.Text & ', nombre_cli=' & TextBox1.Text & ', direccion_cli=' & TextBox4.Text & ', cod_postal_cli=' & TextBox6.Text & ', localidad_cli=' & TextBox5.Text & ', provincia_cli=' & TextBox7.Text & ', pais_cli=' & ComboBox1.Text & ', telefono_cli=' & TextBox8.Text & ', fax_cli=' & TextBox9.Text & ', movil_cli=' & TextBox10.Text & ', contacto_cli=' & TextBox12.Text & ', contacto_adm_cli=' & TextBox14.Text & ', mail_cli=' & TextBox13.Text & ', mail_adm_cli=' & TextBox15.Text & ', forma_pago_cli=' & ComboBox2.Text & ', vencimiento_cli=' & ComboBox3.Text & ', banco_cli=' & TextBox28.Text & ', dia_pago_1_cli=' & TextBox26.Text & ', dia_pago_2_cli=' & TextBox27.Text & ' where nombre_cli=' & TextBox1.Text & ' , conexión)
conexión.Open()
comandomodificar.ExecuteNonQuery()
conexión.Close()
MsgBox( REGISTRO MODIFICADO )
comandomodificar = Nothing
End If
da este error
No coinciden los tipos de datos en la expresión de criterios.
cuando graba todos los campos con texto, no da problemas, solo cuando los va a grabar y uno de ellos esta vacío
gracias