ник: satan
У меня возникла проблема с выполнением запроса в форме. Вот кусок кода на который жалуется:
Dim strsum1 As String
Dim sum1 As Database
Set sum1 = DBEngine.Workspaces(0).Databases(0)
Dim таблsum1 As Recordset
strsum1 = "SELECT U_xxx.ID_INSTR, Min(U_xxx.DATE) AS [Min-DATE], U_xxx.SUM" & _
"FROM U_xxx GROUP BY U_xxx.ID_INSTR, U_xxx.SUM, U_xxx.Note" & _
"HAVING (((U_xxx.ID_INSTR)=" + CInt(Me!Поле_ID) + ")" & _
"And ((Min(U_ххх.DATE))>=" + CDate(Me!ПолеДата1) + " And (Min(ххх.DATE))<=" + CDate(Me!полеДата2) + ") And ((U_ххх.Note) Is Null));"
Set таблsum1 = sum1.OpenRecordset(strsum1, DB_OPEN_DYNASET)
Выдаёт ошибку type mismatch, Хотя в таблице ID_INSTR заведён как "Числовой - Длинное целое", а DATE как "дата/время". пробовал Me!Поле_ID переводить в CLng, тоже самое. 
Подскажите, пожалуйста, в чём проблема.