ник: Гоблин
Блин. Сам нашел.
If Me.ПолеСоСписком0 = "Список1" Then
Me.ПолеСоСписком2.RowSource = "1" & ";" & "2"
Else
If Me.ПолеСоСписком0 = "Список2" Then
Me.ПолеСоСписком2.RowSource = "1" & ";" & "3" & ";" & "5"
Else
Me.ПолеСоСписком2.RowSource = ""
End If
End If