 
        
          
       
  ADO  
   
rs.find "code1='"+x+"'",1,adsearchforward 
     
 
