Здравствуйте уважаемые форумчане!
Акс.2010. Приведенный фрагмент кода дает ошибку: "Run-time error '-2147217904 (80040e10)' отсутствует значение для одного или нескольких параметров" выделяется строка (красная). Если проблема в синтаксисе, то помогите пожалуйста поправить. Заранее благодарен.

With rstDog
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "SELECT * FROM zdReestrForDog WHERE [Период]=" & CrMonth & " Or [Период]=" & CrQuarter & " Or [Период]=" & CrHalfYear & " Or [Период]=" & CrYear, connDog
End With

переменным Cr... присвоены числовые значения

http://www.sql.ru/forum/1145146/kakaya-to-neponyatnaya-oshibka-v-kode