Помогите!
Private Sub Кнопка3_Click()
Dim strSQL As String, strSQLWhere As String
strSQL = "SELECT potr, Naimen_potr, n_kontr, n_reg, d_reg, d_end FROM Pr_dop"
strSQLWhere = " WHERE ("
If Me![vk_potr] And Me![pol_potr] <> "" Then
strSQLWhere = strSQLWhere & "([Pr_dop]![potr] =" & Me![pol_potr] & ") AND "
End If
If Me![vk_period] And Me![pol_period] <> "" Then
strSQLWhere = strSQLWhere & "([Pr_dop]![d_end] =" & Format(Me![pol_period], "\#DD\/MM\/YY\#") & ") AND "
End If

If Len(strSQLWhere) > 8 Then
'Удаление попутно замыкающего " AND "
strSQL = strSQL & Left(strSQLWhere, (Len(strSQLWhere) - 5)) & ");"
Else
strSQL = strSQL & ";"
End If
Me![f_dop1].Form.RecordSource = strSQL
Me![f_dop1].Form.Requery
End Sub
В пректе MDB работает нормально, в ADP выдает ошибку (Недопустимая инструкция SQL. Проверте фильтр для сервера в источнике записей формы) и ссылается на Me![f_dop1].Form.RecordSource = strSQL
Как быть?