ник: Анатолий (Киев)
Для надежности:
Me.размер.RowSource = "SELECT DISTINCT [подтип],[размер] FROM [" & Me.вид.Column(2) & "] WHERE ((( [" & Me.вид.Column(2) & " ].[подтип] ) = [Forms]![Форма3]![подтип] ))"
Если у вас несколько однотипных таблиц, то лучше их свести в одну с дополнительным полем-признаком.