Rs.Eof não esta funcionando...

Pessoal,

estou com o codigo abaixo e não consigo saber se o registro foi encontrado ou não... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

No codigo abaixo estou pretendendo fazer o seguinte, faço uma leitura no Bd se o registro existir dou msg dizendo que ja existe, senão faço a inclusão...

Porém na situação atual, se o registro ja existe o codigo funciona beleza :D , porém se o registro ainda não existe ainda assim ta retornandcom a msg dizendo ja existir.... não sei o que esta acontecendo com o rs.EOF :(

' Abrir a conexão  AbrirConexao = Comeco()'Carrega o Registro da Tabela no Objeto Recordset se existir  With rs   .ActiveConnection = Con   .CursorLocation = adUseClient   .CursorType = adOpenStatic   .LockType = adLockBatchOptimistic           .[COLOR=red]Open ("select * from MINISTROS Where NOME_DO_MINISTRO =  ' " & TxtNomMin.Text & " '  ")[/COLOR]     .ActiveConnection = Nothing       End With      'Se não for encontrado qualquer registro,'Cria o registro na tabela If [COLOR=red]Not rs.EOF [/COLOR]Then    Inclui_Ministros = Incluir_Min(TxtNomMin, TxtDtInicio, DataSaida)    If Inclui_Ministros = True Then       LimpaCampos       MsgBox COD_MINISTRO_PK & " Ministro Gravado sob nr.", vbOKOnly, "Cadastro de Ministros"    Else       MsgBox rs("COD_DO_MINISTRO") & "Ministro não Incluído", vbOKOnly, "Inclusão de Ministro"       rs.Close    End If Else    MsgBox rs("Nome_do_Ministro") & " - Ministro Já Cadastrado", vbOKOnly, " Cadastro de Ministros "    TxtNomMin.SetFocus    Exit Sub End If

Se alguém puder ajudar agradeço Pessoal

:D