добавить запись в таблицу из формы

[Aleksandraaa]

Помогите разобраться пожалуйста. Если у меня есть таблицы: Клиенты(Код клиента, ФИО, адрес), Товары(Код товара, Название товара) и таблица Договор(Код договора, Код клиента, Код Товара). Я создала форму, где из списка выбираешь ФИО клиента, Название товара. Как теперь добавить новый договор.

Private Sub OK_Click()
Dim strSQL As String
strSQL = " Insert Into Test(Номер, Дата, Описание) values ('" & Me.Number_NN & "', '" & Me.Date_NN & "', '" & Me.Opisanie & "');"
CurrentProject.Connection.Execute (strSQL)
MsgBox ("Добавлено!")
End If
End Sub
Если делать по такому принципу, он должен еще по фамилии найти код клиента и по названию код товара и потом их уже заносить в договору. Вот только я не могу понять как?

[smoky]

вот, разбирайтесь