do while not rs_func.EOF if rs_func("nome")=x_1 then matricula_1= rs_func("matricula") elseif rs_func("nome")=x_2 then matricula_2= rs_func("matricula") elseif rs_func("nome")=x_3 then matricula_3= rs_func("matricula") elseif rs_func("nome")= x_4 then matricula_4= rs_func("matricula") end if rs_func.movenext loop