Nao sei se voce esta usando ADO ou DAO mais vamos la.
Abri duas tabelas em DAO
dim Arq As Database
Dim rst as recordset, rst2 as recordset
Set rst = arq.OpenRecordset("SELECT * from clientes where cod_cliente = 2", _
dbOpenSnapshot)
Set rst2 = arq.OpenRecordset("SELECT * from bairros where cod_bairro = 3", _
dbOpenSnapshot)
txt_nome_cliente = rst.fields![nome] 'campo da tabela cliente
txt_nome_bairro = rst2.fields![nome_bairro] 'campo da tabela bairro
rst.close
rst2.close
' Ajudou
