Проблема здесь с методом поиска. Метод принимает другой аргумент, называемый SeekOption, и по умолчанию он просто находит первое совпадение.
Вместо этого вы можете использовать метод Find для набора записей следующим образом. Вам нужно указать критерии поиска, а также где в наборе записей начать поиск.
Data1.Recordset.Find Criteria:="idxid= 'A02-0005'", Start:=adBookmarkFirst
Наконец, если вы хотите, чтобы ваши текстовые поля обновлялись автоматически, когда пользователь щелкает элемент управления данными, вы можете просто установить свойства DataSource & DataField для элементов управления текстового поля во время разработки.