SELECT Visa_Category.Id, Visa_Category.Visa_Name FROM Visa_Category WHERE (((Visa_Category.FK_Country)=[forms]![Demo_Form]![Selection_Country])) ORDER BY Visa_Category.Id;
Private Sub Selection_Country_Change()
Dim ctlCombo As Control
' Return Control object pointing to a combo box.
Set ctlCombo = Me.Selection_Visa
' Requery source of data for list box.
ctlCombo.Requery
End Sub