SQL - Ayuda con SQL URGENTE

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

Mario

Su Script es demasiado largo y no aparece completo en esta pagina, puede enviarlo por mail?