Boa noite aos vbs maniacos de plantão......

 

No exemplo abaixo eu faço o seguinte

tenho dois campos que não posso repetir e testo os dois

se o cod não repete então

      se o nome não repete então

      se repete

            fim

      fim se

se repete o cod

      fim

fim se

 

bloco que salva

 

Problema:

       Ele passa por tudo isso direitinho mas não salva porém se eu salvar sem testar ele esta salvando!!!!   Acredito que é erro lógico mas eu não estou conseguindo achar!  Mando o código abaixo.....

 

        If txt_visualiza(0).Text = "" Then txt_visualiza(0).Text = cont
        If txt_visualiza(1).Text = "" Then
            MsgBox "O campo setor não pode conter um valor nulo!", vbCritical, "Atenção!"
            txt_visualiza(1).SetFocus
            Exit Sub
        End If
        If txt_visualiza(2).Text = "" Then txt_visualiza(2).Text = "Obs.:"
      
' ***** verifica se o codigo ja existe
        rec = Val(txt_visualiza(0).Text)
        rs_set.Close
        rs_set.Open "select * from tb_setor where cod_setor = " & rec, conn, adOpenKeyset, adLockBatchOptimistic
' ********  se poder salvar entao confere o setor se tb não pode repetir
        If rs_set.BOF Then
            busca = txt_visualiza(1).Text
            rs_set.Close
            rs_set.Open "select * from tb_setor where nome_setor = '" & busca & "'", conn, adOpenKeyset, adLockBatchOptimistic
            If rs_set.BOF Then
            Else
                MsgBox "O setor já esta registrado! ", vbCritical, "Atenção"
                txt_visualiza(1).SetFocus
                Exit Sub
            End If
        Else
            MsgBox "O número de registro já existe!", vbCritical, "Atenção!"
            txt_visualiza(0).SetFocus
            Exit Sub
        End If
                    rs_set.Close
                    rs_set.Open "select * from tb_setor ", conn, adOpenKeyset, adLockBatchOptimistic
                    rs_set.AddNew
                    rs_set("cod_setor") = txt_visualiza(0).Text
                    rs_set("nome_setor") = txt_visualiza(1).Text
                    rs_set("obs") = txt_visualiza(2).Text
                    rs_set.Update

'    ele passa por tudo direitinho abre a linha, da novos valores para os campos da tabela, mas passa tranquilo pelo rs_set.Update sem salvar??????????

 

       Grato e aguardando resposta!!!!!!!!!!!!!