boa tarde pessoal !!!

 

Private rs_set As New Adodb.Recordset

 

rs_set.Close
    busca = InputBox("Digíte o nome do setor a ser pesquisado.", "Pesquisa de Setor")
    rs_set.Open "select * from tb_setor where nome_setor like '%" & busca & "%' order by cod_setor", conn, adOpenKeyset, adLockOptimistic
    rs_set.MoveMin
 

como eu faço se ele não achar registro???

 

     tipo no dao era 

          if tabela.nomatch = true then

                msgbox "não achou"

If rs_set.EOF OR rs_set.BOF Then

   msgbox "não achou"

Valeu Waldirjr , tb pela agilidade da resposta!!!