SQL в VBA

[Айвенго]

Привет, столкнулся для себя с такой проблемой, имеется 2 таблицы: work с полями "id", "name", "status" и таблица test, таблица test идентична таблице work, так же есть форма, которая создана на основе таблицы test, на форме соответственно 3 текстовых поля. Я хотел сделать вот что:

в поле id указать номер id из таблицы work, а в поля name и status присваивались значения согласно введенному id

Данную проблему решал 2 вариантами:
1 - с помощью команды dlookup
2 - преобразовывал поля name и status в поле со списком, где указывал источник строк sql запрос

На данный момент хочу присвоить значения в поля c использованием Recordset, но, увы не получается, смотрел как подобную проблему решали на других форумах, но там тяжеловатые примеры для моего понимания.

Вот что у меня получилось:

Private Sub id_test_Change()
Dim rst1 As Recordset
Dim rst2 As Recordset
Set rst1 = CurrentDb.OpenRecordset("SELECT work.status FROM [work] WHERE (((work.id)=[f_test].[id_test]));")
Set rst2 = CurrentDb.OpenRecordset("SELECT work.name FROM [work] WHERE (((work.id)=[f_test].[id_test]));")
status_test = rst1
name_test = rst2
End Sub

Но выходит ошибка: "Слишком мало параметров. Требуется 1.

[Волшебник]

Айвенго,
Запрос не понимает, что это такое.
[f_test].[id_test]

Отсюда и месага
"Слишком мало параметров. Требуется 1.
-----------------------------------------
Это форма.
Чтобы всё работало, нужно обернуть её в функцию.
Создай модуль и запиши там.

Public Function A()
A = Forms![f_test]![id_test]
End Function

И в коде в запросе, где используется [f_test].[id_test]
dместо этого напиши вызов функции: A()

[Волшебник]

----------------------