Cita: 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
