Здравствуйте! Прошу помощи в решении следующей задачи.

Есть форма для ввода данных с 2 полями со списком и 3 таблицы: Тема, Подтема1 и Подтема2. Таблицы между собой не связаны. В первом поле формы выбираются значения из таблицы Тема. Во втором поле данные нужно выбрать из таблиц, соответствующих выбранному значению в первом поле: выбрано значение 1 - выбор из таблицы Подтема1, значение 2 - выбор из таблицы Подтема2, значение 3 - поле остаётся пустым.

Пытался сделать через кнопку:

Private Sub Кнопка1_Click()
Dim db As Database
Set db = CurrentDb
If (Me!Тема) = "Школа" Then
Me!Подтема = "tblПодтема1"

End If

If (Me!Тема) = "Вуз" Then
Me!Подтема = "tblПодтема2"

End If

If (Me!Тема) = "Работа" Then
Me!Подтема = ""

End If
End Sub

Укажите пожалуйста на ошибку: вероятно в синтаксисе команд, необходимости ввода дополнительных переменных или вообще на неверный подход к решению этой задачи.

На форуме и в лекциях не удалось найти подобного.

Заранее благодарен.