Este primeiro SQL me traz o número do Codigo e adiciona no atxtCodigo.txt

 

strSQL = "SELECT *FROM Prod WHERE NumeroPedido = '" &  AxtPedido.Text & "';"

 

rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic

 

atxtCodigo.text = rs.Fields("Codigo")

 

Já este Segungo busca a quantidade da tabela Produtos atraves do código localizado na primeira linha SQL.

 

strSQL = "SELECT *FROM Produtos WHERE Codigo = '" & atxtCodigo.text & "';"

 

com faço para usar as duas intruçoes na mesma strSQL ?

 

TIPO:

 

StrSQL = "SELECT Prod , Produtos WHERE NumeroPedido,Codigo

 

Ou algo parecido.

 

Obrigado.

 

 

 

Acho que o que você precisa é usar o Inner Join para unir duas tabelas.

 

Neste link tem alguns exemplos de como fazer isso. Consulte:

 

Qualquer coisa, poste novamente.

 

Abraços.