nell'evento combo click


codice:
QuerySelezione = "SELECT * FROM ARCHIVIO WHERE ID=" & IdSelezionato

Data_Anagrafica.RecordSource = QuerySelezione 
'Data_Anagrafica.Refresh 

if not Data_Anagrafica.Recordset.EOF then
  if not isnull(Data_Anagrafica.Recordset("Telefono") then
    txtTelefono.text=Data_Anagrafica.Recordset("Telefono")
  end if

  if not isnull(Data_Anagrafica.Recordset("Indirizzo") then
    txtInidirzzo.text=Data_Anagrafica.Recordset("Indirizzo")
  end if
end if
per non stravolgere troppo il tuo codice

End Sub