Запрос из VBA В Accesse

[Donatello]

Есть вот такой запрос

SELECT тКурс_Валют.[Курс_Евро] FROM тКурс_Валют WHERE ((тКурс_Валют.[Курс_Дата])=Date());

Он отрабатывает нормально, но когда я пытаюсь результат вписать в переменную, для дальнейших вычислений, он пишит

Run-time error '13':
Type mismatch

Я понимаю что идет не совпадение типов, но не могу понять как исправить.
VBA код ниже.

Dim db As Database
Dim strSQL As Variant
strSQL = "SELECT тКурс_Валют.[Курс_Евро] FROM тКурс_Валют WHERE ((тКурс_Валют.[Курс_Дата])=Date());"
Set db = CurrentDb()
db.Close
Me.Цена_Евро = Me.Наименование.Column(2) * Me.Количество
Me.Цена_Руб = Me.Наименование.Column(2) * Me.Количество * strSQL

Таблица Курс_Валют столбец Курс_Евро имеет размер поля(Двойное с плавающей точкой) Формат (Фиксированный) Число десятичных знаков (2)
Да и еще Цена_Руб нигде не хранится, а вычисляется на Лету, т.к. данное поле только в форме показано.

[Myhaylo]

Цена_Руб = Наименование.Column(2) * Количество * DLookUp("Курс_Евро", "тКурс_Валют", "Курс_Дата]=Date()")

или

Dim tabl As Recordset
Set table = bd.OpenRecordset("SELECT ... FROM ... WHERE ...", dbOpenDynaset)
If Not tabl.EOF Then Цена_Руб=Наименование.Column(2)*Кол ичество*tabl!Курс_Евро

[alvk]

Или

Dim strSQL As String' если вариант, то писать не надо ничего.
dim a ' вот тут уже variant
strSQL = "SELECT тКурс_Валют.[Курс_Евро] FROM тКурс_Валют WHERE тКурс_Валют.[Курс_Дата]=Date()"
a = currentproject.connection.execute(sql).fields(0).value

Me.Цена_Евро = Me.Наименование.Column(2) * Me.Количество
Me.Цена_Руб = Me.Наименование.Column(2) * Me.Количество * a

[Donatello]

Спасибо за ответ, теперь стало понятно на 80% остальные 20% наверное еще не осознал.

[Donatello]

Здравсвуйте, появилась еще 1 непонятная вешь. Есть форма, есть подчиненная форма табличного вида.
Как правильно задать запрос в эту форму, что бы данные из формы таблицы внести в таблицу, где эти данные уже будут хранится.

  CurrentDb.Execute "INSERT INTO тЗаказано" _
    & "([Код_Товара],[Артикул],[Наименование],[Модель],[Фабрика],[Количество])" _
    & "('" & Forms![фтДобавить_Заказ_Подчиненная_Табличная_Форма]![Код_Товара] & "', '" & Forms![фтДобавить_Заказ_Подчиненная_Табличная_Форма]![Артикул] & "', '" & Forms![фтДобавить_Заказ_Подчиненная_Табличная_Форма]![Наименование] & "', '" & Forms![фтДобавить_Заказ_Подчиненная_Табличная_Форма]![Модель] & "', '" & Forms![фтДобавить_Заказ_Подчиненная_Табличная_Форма]![Фабрика] & "', '" & Forms![фтДобавить_Заказ_Подчиненная_Табличная_Форма]![Количество] & "';)"

вот на такой код пишет, что не может найти форму.