VBA. Office Access. Поиск и анализ слов.

[KollRoll]

Привет, гуру VBA!!!

Мне нужна помощь по практической работе из колледжа. Короче, я решил сделать фигню типа Google ассистента или Siri.
Я сделал, но там столько кода... что можно все сделать намного меньше. Теоритически я знаю как это сделать, но вот практически НЕТ!

В Office Access, в документе я создал таблицу "Слова" и форму "Yan" (название моего ассистента). В таблице у меня есть 5 столбцов и 2 строки (в дальнейшем их будет больше). В форме у меня есть у меня есть 3 надписи и одно поле: Надпись1, Надпись2, Надпись3 и Поле1.
Короче, мне нужно, когда у меня в Поле1 введено любое слово, оно проверяется в таблице "Слова", если такое слово есть в первом столбце таблицы (например это слово в столбце, в 3 строке находится), то в 3 строке уже 2 или 3 или 4 столбца берем одно слово рандомно из 2 или 3 или 4 столбца 3 строки и вставляем в Надпись3.

Вот файл.