ник: snipe
Me.размер.RowSource = "SELECT DISTINCT размер FROM " & Me.вид.Column(2) & ""
' задаём источник
Me.размер = "SELECT DISTINCT размер, подтип FROM " & Me.вид.Column(2) & " WHERE ((( [подтип].[" & Me.вид.Column(2) & " ] ) = [Forms]![Форма3]![подтип] ))"
замени на это
Me.размер.RowSource = "SELECT DISTINCT [подтип],[размер] FROM " & Me.вид.Column(2) & " WHERE ((( [" & Me.вид.Column(2) & " ].[подтип] ) = [Forms]![Форма3]![подтип] ))"