Ayuda en SQL urgente

[mdurzua]

Tengo problemas con una SQL que estoy haciendo,
el problema es que me modifica la informacion de toda la tabla
y no solo del registro que yo quiero, ademas le agregue la opcion WHERE
para que solo me modifique es registro pero no lo hace,
alguien me podria ayudar, aqui envio la SQL , de ante mano muchas gracias

Sql = "UPDATE Secreduc SET Secreduc.Nombres = '" & Nombres.Text & "',"
Sql = Sql & "Secreduc.Apellidos = '" & Apellidos.Text & "',"
Sql = Sql & "Secreduc.Departamento = '" & Depto.Text & "',"
Sql = Sql & "Secreduc.Seccion = '" & Seccion.Text & "',"
Sql = Sql & "Secreduc.Tecnico = '" & Tecnicos.Text & "',"
Sql = Sql & "Secreduc.Marca = '" & Marca.Text & "',"
Sql = Sql & "Secreduc.Modelo = '" & Modelo.Text & "',"
Sql = Sql & "Secreduc.Cpu = '" & Cpu.Text & "',"
Sql = Sql & "Secreduc.Ram = '" & Ram.Text & "',"
Sql = Sql & "Secreduc.Hdd = '" & Hdd.Text & "',"
Sql = Sql & "Secreduc.Computername = '" & ComputerName.Text & "',"
Sql = Sql & "Secreduc.SistOperativo = '" & Sistema.Text & "',"
Sql = Sql & "Secreduc.office = '" & Office.Text & "',"
Sql = Sql & "Secreduc.Rut = '" & Rut.Text & "',"
Sql = Sql & "Secreduc.FechaServicio = '" & CDate(FecSolicitud.Text) & "',"
Sql = Sql & "Secreduc.SopTerreno1 = '" & SopTerre & "',"
Sql = Sql & "Secreduc.SopSistema1 = '" & SopSis & "',"
Sql = Sql & "Secreduc.SopUsuario1 = '" & SopUsu & "',"
Sql = Sql & "Secreduc.InfoServidor1 = '" & InfoSer & "',"
Sql = Sql & "Secreduc.InfoIntranet1 = '" & InfoIntra & "',"
Sql = Sql & "Secreduc.RepSoftware1 = '" & RepSoft & "',"
Sql = Sql & "Secreduc.RepHardware1 = '" & RepHard & "',"
Sql = Sql & "Secreduc.Conectividad1 = '" & Conec & "',"
Sql = Sql & "Secreduc.Telefonica1 = '" & Tele & "',"
Sql = Sql & "Secreduc.Remota1 = '" & Remo & "',"
Sql = Sql & "Secreduc.Observaciones = '" & Observaciones.Text & "',"
Sql = Sql & "Secreduc.Terreno1 = '" & Terre & ""
Sql = Sql & " Where Secreduc.Nservicio = " & Val(NServicio.Text) & "'"

[Renegado]

Sql = Sql & " Where Secreduc.Nservicio = " & Val(NServicio.Text) & "'"

Esta linea es la que hay que arreglar.

Hay una funcion en visual que se llama Trim (borra los espacios en blanco)

Podrias hacer esto

Trim(NServicio.Text) para ver si ese es el error.

Hay veces que hay que agregar las comillas simples igual, prueba con eso tb

' " & Val(NServicio.Text) & " '

De ahi me avisas