ainda não entendi bem, mas fiz uma alteração na linha 10 ... faz o teste

 

1)     sql = ""
2)     sql = sql & " select cli.*, est.*,ord.*,ven.*, ti.* "
3)     sql = sql & " from tb_ord ord,"
4)     sql = sql & " tb_vend ven,"
5)     sql = sql & " tb_cliente cli,"
6)     sql = sql & " tb_tipprec ti,"
7)     sql = sql & " tb_estoque est "
8)     sql = sql & " where cli.codcli = ord.codcli"
9)     sql = sql & " and est.codest = ord.codest "
10)    sql = sql & " and ord.codest = ord.codest_re
11)    sql = sql & " and ven.codven = ord.codven "
12)   sql = sql & " and ti.codprec = ord.tp_ord "
13)    sql = sql & " and numerord = " & NumOrd.Text
 14)   rs.Open sql

Martini ainda não funcionou ! Continua mostrando nada !

Olha só.

tenho um codigo de produto 111 que se chama teste tem o preço de 1,00

Eu faço uma venda desse produto blz.

Ai o cliente resolve trocar, bem eu faço a troca e na impressão tenho que mostrar o que ele devolveu e o que ele esta levando, então na tabela onde faço isso se chama tb_ord e la tem os campos codest e cosest_re, o que eu quero é:

mostrar a descrição dos produtos por isso relacionei na sql a linha 9 e linha 10.

Minha impressão ficaria assim:

entro:

codprod                   descrição                 preço

  111                         teste                      1,00

 

saiu

codprd_re                descrição                 preço

 222                          teste1                     1,00

Quando relaciono codprod ele vai buscar as informações na tabela estoque

mas quando relaciono os dois juntos não funciona !

Obrigado

assim:

 

create table #tb_ord
 (
  Numero numeric,
  CodCli numeric,
  CodVen numeric,
  CodProd numeric,
  CodProdAnt numeric,
  Valor float
 )

create table #tb_estoque
 (
  CodProd numeric,
  Descricao varchar(20)
 )

set nocount on

insert into #tb_estoque (CodProd, Descricao) values (1, 'teste')
insert into #tb_estoque (CodProd, Descricao) values (2, 'teste1')

insert into #tb_ord (Numero, CodCli, CodVen, CodProd, CodProdAnt, Valor) values (1, 1, 1, 1, 1, 1)
update #tb_ord set CodProdAnt = CodProd , CodProd = 2 where Numero = 1

select * from #tb_ord
select * from #tb_estoque

--resultado na mesma linha
select *
from #tb_ord
left outer join #tb_estoque Est1 on Est1.CodProd = #tb_ord.CodProd
left outer join #tb_estoque Est2 on Est2.CodProd = #tb_ord.CodProdAnt

--resultado em linhas diferentes
select 'Produto Trocado',*
from #tb_ord
left outer join #tb_estoque Est1 on Est1.CodProd = #tb_ord.CodProd
union all
select 'Produto Comprado Inicialmente',*
from #tb_ord
left outer join #tb_estoque Est2 on Est2.CodProd = #tb_ord.CodProdAnt

drop table #tb_ord
drop table #tb_estoque

--resultado do selects
Numero    CodCli   CodVen   CodProd   CodProdAnt    Valor                                                
--------- -------- -------- --------- ------------- --------
1         1        1        2         1             1.0

CodProd              Descricao           
-------------------- --------------------
1                    teste
2                    teste1

Numero   CodCli    CodVen   CodProd    CodProdAnt    Valor     CodProd     Descricao    CodProd     Descricao           
-------- --------- -------- ---------- ------------- --------- ----------- ------------ ----------- -----------
1        1         1        2          1             1.0       2           teste1       1           teste

                              Numero   CodCli    CodVen    CodProd    CodProdAnt    Valor    CodProd   Descricao           
----------------------------- -------- --------- --------- ---------- ------------- -------- --------- --------------------
Produto Trocado               1        1         1         2          1             1.0      2         teste1
Produto Comprado Inicialmente 1        1         1         2          1             1.0      1         teste

 

Meu velho vc terá que fazer assim (Procure usar sempre sintaxe sql ansi):

Retificando. Se o campo codest_re pode ser null .. altere o join para right join.