COmo faço pra fazer uma consulta de uma outra consulta ...

por ex. o código abaixo .. q deu erro ...

 

********

Set tabelona = banco.OpenRecordset("SELECT * FROM principal WHERE numerosd = 1")
Set tabela = tabelona.OpenRecordset("SELECT MAX(sub) AS NCod FROM ", dbOpenSnapshot)
Var = tabela!NCod
If IsNull(Var) = True Then
    Var = 0
End If
Var = Var + 1
tabela.Close
lbl1.Caption = Var

****

alguem saberia me ajudar ?

 

O que você está fazendo não pode. Explica melhor o que vc quer fazer pois eu não entendi.

 

t+

afff vacilei ...  era soh fazer isso

 

Set tabela = banco.OpenRecordset("SELECT MAX(sub) AS NCod FROM principal WHERE numerosd = 1", dbOpenSnapshot)

 

colocar o WHERE no campo de comparar...