Pessoal, como relaciono 2 tabelas com 3 campos de nomes parecidos ?

Ex:

Tabela1, Tabela2

campo1, campo1TB2, campo2TB2

Eu fiz assim, mas não funciona, não traz nada !

sql = " select tb1.*, tb2.* "

sql = sql & "from Tabela1 tb1, "

sql = sql & "Tabela2 tb2 "

sql = sql & "where  tb1.campo1 = tb2.campo1TB2"

sql = sql & " and tb1.campo1 = tb2.campo2TB2"

sql = sql & " and tb1.campo1 = " & TextBox.text

Obrigado

Tente dessa forma:

SQL="SELECT Tabela2.*, Tabela3.* " & _
"FROM Tabela2 INNER JOIN Tabela3 ON (Tabela2.Campo2 = Tabela3.Campo2) AND (Tabela2.Campo1 = Tabela3.Campo1) " & _
"WHERE (((Tabela2.Campo1)='" & Text1.text & "'));"

o que você precisa retornar exatamente (dê exemplos)? ... na tua sql só vai retornar registros se o valor do campo tb1.campo1  for igual ao valor do textbox, que tenha um ou mais registro na Tabela2 com o mesmo valor nos campos campo1TB2 e ampo2TB2

Martini,

Segue a sql que preciso.

 

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 est.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

Na tabela tb_ord existe dois campos com nomes parecidos, tenho que comparar os dois campos com os campos da tabela tb_estoque ( codest e cosest_re ) da forma que está não mostra nada ! Mas se eu tirar a linha 10 ele funciona. Na segunda linha coloquei cli.*, est.*,ord.*,ven.*, ti.* para dar a informação para você mais rápido, no meu código está todos os campos que preciso.

Obrigado

se vc tira a linha 10 e ele funciona é porque nao existe est.codest=ord.codest_re

Alexandre, o pior é que existe !

Obrigado