Загрузка и выгрузка информации из базы данных, очень нужен Ваш совет! - VB

Формулировка задачи:

Доброго времени суток! Очень прошу помощи у Вас, не могу разобраться в последнем фрагменте программы.. Задание такое: У меня есть база данных Access с которой я работаю, содержит она всего 2 поля: "Поле1" и "Поле2". В программу загружается файл. (точнее информацию из файла я загружаю в текстовое поле Text3.Text Сначала мы должны произвести поиск по ключевым словам из столбца "Поле1" в загруженном файле (Text3.Text) Из "Поле1" выгружаю данные в Text1.Text пишу вот так:

Private Sub Form_Load() 'при запуске программы
qw = 1
Data1.DatabaseName = "db1.mdb" 'моя база данных 
Data1.RecordSource = "Таблица1"
Text1.DataField = "Поле1"
Text2.DataField = "Поле2"
 
End Sub

Ниже листинг - эта часть кода уже с кнопки, я на нее нажимаю, происходит поиск по значению из Text1.text в Text3.text, выделяю и запоминаю 10 следующих знаков в текстовом поле Text2.Text(по заданию после ключевого слова нужно запомнить 10 знаков и записать их в "Поле2"), мне осталось записать в столбец "Поле2" данные из Text2.Text, далее перейти к следующему элементу и повторять данную операцию пока не закончатся строки в "Таблица1". Вот все получилось сделать правдами неправдами, а записывать в "Поле2" не хочет.

Text2.DataSource = "Data1"
Text2.DataField = "Поле2"
Data1.Recordset.AddNew
Data1.Refresh

P.S. (совсем недавно начал программировать в данной среде, если вы подскажете как можно заменить текстовые поля переменными буду очень рад!))

Решение задачи: «Загрузка и выгрузка информации из базы данных, очень нужен Ваш совет!»

textual
                            Листинг программы 
                        

                                        rst.AddNew
                 rst(0) = ГодКонтракта
                 rst(1) = Дата_3
            rst.Update
                        