Per maggiore complessione del mio problema (che spero prima o poi di risolvere) aggiungo 2 spezzoni di codice
1) con MSAccess e DAO
codice:
rsPrezziClienti.index = "PerAIDCID"
For i = 56 To 100
CID = CLng(Val(LbSiglaCliente(i - 56).Tag))
If CID > 0 Then
rsPrezziClienti.Seek "=", AID, CID
if Not rsPrezziClienti.NoMatch Then
Tx(i).Text = rsPrezzoClienti("Prezzo"))
end if
end if
Next i
2) con SQLSERVER e ADO
codice:
For i = 56 To 100
CID = CLng(Val(LbSiglaCliente(i - 56).Tag))
If CID > 0 Then
rsP.Open "SELECT * FROM TabPrezziClienti WHERE AnalisiID=" & CStr(AID) & " AND ClienteID=" & CStr(CID), CnnSQL
if rsP.EOF Then
Tx(i).Text = rsP("Prezzo"))
end if
end if
rsP.close
Next i
Orbene, la differenza (in termini di tempi di esecuzione, è notevole: praticamente istantanea nel primo caso e poco meno di 1" nel secondo caso).