Bene, posto che l'ID è numerico, il caricamento della combo impostalo
così .
codice:
While Not AdoRs.EOF 
  Combo1.AddItem (AdoRs!NomeAzienda) 
  Combo1.ItemData(Combo1.NewIndex) = (AdoRs!ID.value)
  AdoRs.MoveNext 
Wend
Poi modifica la costruzione della query così :

codice:
strQuery = "Select *" _ 
& " From tAnagrafica" _ 
& " Where NomeAzienda= '" & Combo1.Text & "' AND ID= " & Combo1.ItemData(Combo1.ListIndex)
Così ogni elemento della combo conterrà le due informazioni
necessarie per eseguire la query.

Ciao,