PESSOAL COMO EU FAÇO PRA SABER SE ALGUM REGISTRO NAO FOR ENCONTRADO NA SELECT ABAIXO ????

Explico: Estou imprimindo na ARGOX e se algum dos dados digitados não existir no ORACLE então não precisa emitir e avisa o usuario, pois se digitou errado digita novamente.

'##--- INICIO -- EXECUTA SQL ---------------------------------------------------------

Dim SQL

SQL = SQL & "SELECT a.tip_razao_social, " 'campo RAZAO loja

SQL = SQL & "a.tip_fone_ddd, " 'campo DDD loja

SQL = SQL & "a.tip_fone_num, " 'campo FONE loja

SQL = SQL & "a.tip_cgc_cpf, " 'campo CNPJ loja

SQL = SQL & "b.esch_nro_nota, " 'campo Nº NF

SQL = SQL & "b.esch_ser_nota, " 'campo SERIE NF

SQL = SQL & "b.esit_codigo, " 'campo COD. PRODUTO

SQL = SQL & "b.esit_digito, " 'campo DIGITO COD. PRODUTO

SQL = SQL & "c.tip_cgc_cpf, cnpj_fonec " 'campo CNPJ fornecedor

SQL = SQL & "b.entsai_quanti_un " 'campo QTD NF

SQL = SQL & "FROM aa2ctipo a, " 'TABELA DO FORNECEDOR

SQL = SQL & "ag1fensa b, " 'TABELA DA LOJA

SQL = SQL & "aa2ctipo c " 'TABELA DO FORNECEDOR

SQL = SQL & "WHERE a.tip_codigo = '" & txt_loja & "' AND "

SQL = SQL & "c.tip_codigo = '" & txt_cod_fornecedor & "' AND "

SQL = SQL & "esch_nro_nota2 = '" & txt_nf & "' AND "

SQL = SQL & "esch_ser_nota2 = '" & Serie_com_espaco & "' AND "

SQL = SQL & "esit_codigo2 = '" & txt_cod_produto & "' AND "

SQL = SQL & "b.eschlj_codigo2 = c.tip_codigo"

rs.Open SQL, conexao, adOpenStatic, adLockOptimistic

'## RETORNA A CONSULTA NAS CONSTANTES

If Not rs.EOF Then

RAZAO_LOJA = rs!tip_razao_social

FONE_DDD_LOJA = rs!tip_fone_ddd

FONE_LOJA = rs!tip_fone_num

CNPJ_LOJA = rs!tip_cgc_cpf

NF_NUM = rs!esch_nro_nota

NF_SERIE = rs!esch_ser_nota

PROD_COD = rs!esit_codigo

PROD_DIGITO = rs!esit_digito

COD_CNPJ_FORNECEDOR = rs!cnpj_fonec

End If

'##--- FIM -- EXECUTA SQL ---------------------------------------------------------