Dim rst As Recordset
Dim hm As Integer
Dim card_name As String
Dim date_name As Integer
Dim thelist_id As Variant

hm = Me.Количество
MsgBox "кол-во: " & hm

card_name = Me.Марка
MsgBox "марка: " & card_name

date_name = Me.ДатаУчета
MsgBox "дата: " & date_name

thelist_id = Form_Учет.КодУнЛиста
MsgBox "код листа: " & thelist_id

MsgBox "код товара: " & Card_ID

Set rst = CurrentDb.OpenRecordset("SELECT ПроданоЗаДень.КодТовара, ПроданоЗаДень.НомерУниверсальногоЛиста, ПроданоЗаДень.[" & date_name & "] FROM ПроданоЗаДень WHERE (((ПроданоЗаДень.КодТовара)=" & Card_ID & ") AND ((ПроданоЗаДень.НомерУниверсальногоЛиста)=" & thelist_id & "))", dbOpenForwardOnly)

почему ругает меня, сволочь?