Option Compare Database Option Explicit Private Sub ProvinceID_AfterUpdate() Me.City.RowSource = "SELECT CityName FROM" & " City WHERE ProvinceID = " & Me.ProvinceID & "Order BY ProvinceID" Me.City = Me.City.ItemData(0) End Sub
Используйте правильный синтаксис и интервал. Также не имеет смысла заказывать по фильтру. Итак, попробуйте:
Me!City.RowSource = "SELECT CityName FROM City WHERE ProvinceID = " & Me.ProvinceID & " ORDER BY CityName"