Query annidate e variabile oggetto non impostata

[samoa]

...
Do Until rst.EOF
idpp = rst("idp")
sql_2 = "SELECT * FROM Pagamenti WHERE idp = " & idpp & ";"
rst2.Open sql_2, conn

Do Until rst.EOF
If rst("breakfast") = "Vero" Then
Numero = Numero + 1
End If
rst.MoveNext
Loop

rst2.Close
Set rst2 = Nothing

rst.MoveNext
Loop


Come fare a interrogare un DB usando i dati di un recordset per individuare
record di un'altra tabella ?

l'errore che ottengo è variabile oggetto o variabile del blocco with non impostata.

cosa sto sbagliando?