Поиск по запросу

[unnnamed]

Здравствуйте!
Каким образом можно создать поиск в запросе а не в таблице? Имею следующий код:

Код: Выделить всё

Private SUB cmdFind_Click()
DIM promt1, promt2, SearchStr1, SearchStr2 AS STRING
  prompt1 = "Введите номер"
  prompt2 = "Введите месяц"
  SearchStr1 = InputBox(prompt1, "Поиск номера")
  SearchStr2 = InputBox(prompt2, "Поиск месяца")
    Data1.Recordset.Index = "PrimaryKey"
    Data1.Recordset.SEEK "=", SearchStr1, SearchStr2
    IF Data1.Recordset.NoMatch THEN
       Data1.Recordset.MoveFirst
    END IF
END SUB

Если в Data1 задано "RecordsetType 0 - Table", то поиск работает и ищет в таблице. Ежели задано "RecordsetType 1 - Dynaset" (для осуществления поиска в запросе), то выдается ошибка "3251 - Операция не поддерживается для объектов этого типа". Есть ли решение для данной проблемы?

[Qwertiy]

Надо очень осторожно обращаться с такими записями:

Код: Выделить всё

DIM promt1, promt2, SearchStr1, SearchStr2 AS STRING

В VB6 это эквивалентно

Код: Выделить всё

DIM promt1 As Variant, promt2 As Variant, SearchStr1 As Variant, SearchStr2 AS STRING

Не уверен, что в данном случае именно это вызывает ошибку, но исправить описание на явное указание строк всё равно стоит.

[unnnamed]

Благодарю за замечание, исправил и взял на заметку, но на результат это не повлияло.

[vice4]

Код: Выделить всё

Data1.Recordset.findfirst

надо использовать вместо seek для динамических наборов