SoloCodigo

los lectores de codigos de barras son como teclados, al pasar el lector por un codigo de barras lo que hace es escribir el numero del codigo y al final presionar enter, es como si usaras un teclado nada mas   yo no se de power builder pero creo que con eso ya te daras una idea de como le puedes hacer  

Tu Codigo quedaria algo asi:

/ declarmos variables
string nom,cla

// nuevas variables
string ls_clvnva, ls_pswnva

ls_clvnva = trim(sle_nombre.text)
ls_pswnva = trim(sle_pass.text)

//selecionamos el nombre y la clave paa comparar si son iguales

   select Usuario,Password
   into :nom,:cla from Registro
   where Usuario  =:ls_clvnva and
            Password=:ld_pswnva;

//verifica si existe la clave

if blio.sqlcode=100 then
   contador=contador+1
   messagebox('Advertencia','Nombre Incorrecto o Contraseña Errada',exclamation!)
  if contador = 3 then
      messagebox('Aviso','Intentos Fallidos, El Sistema se Cerrará',exclamation!)
  else
     sle_nombre.text=""
     sle_pass.text=""
     sle_nombre.setfocus()
  end if
else
  open(w_administrador)
end if