estou desenvolvendo um sistema de cadastro, ok

 

e tenho um fields de segurança de faturamento, seria um field(seg) , que bloquea o faturamento do cliente se este fields estiver com a mensagem ,(Devedor), na hora que eu digitar o codigo do cliente , se o mesmo estiver devedor, aparecerara umamensagem Cliente DEvedor.

 

Queria montar esta rotina, alguem tem uma ideia para me enviar-me

 

obrigado

Set adoCampos = New ADODB.Recordset

adoCampos.Open "SELECT * FROM tabCliente WHERE idCliente = '" & txtCodClie & "'", adoConexao

If not adoCampos.EOF Then

   if adoCampos("Seg") = "Devedor" Then

      MsgBox "Cliente Devedor"

    Else

      'continua sua Rotina

   Endif

 Else

End If

adoCampos.Close

 

---

Se o Campo estiver na mesma tabela é isso aí. Mas acho que, já que vc conhece as condições, vc poderia gravar por ex:

 0 ou N - para Normal

 1 ou D - para Devedor

Ocupa menos espaço e vc faz a consulta só mudando "Devedor" por "1" ou "N"