Add a DLookup to your listbox's afterupdate sub.
Example: (just brainstorming, check for syntax, Country table has two fields: Country and City)
Private sub listbox_afterupdate()
CountryListBox = DLookup("[Country]","CountryTable","[City] = listbox.value")
End Sub