Поиск в ADO

[Beerkoff]

Пытаюсь сделать поиск так

Dim rs As ADODB.Recordset
Dim sSQL As String
Set rs = New ADODB.Recordset
sSQL = "Select * From Таблица Order by NN"
rs.ActiveConnection = Form1.cn
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Source = sSQL
rs.Open

sCrit = Text1.Text
rs.Find sCrit, 0, adSearchForward
Text2.Text = rs.Field(NN) & rs.Field(Name)

Вылазиет ошибка

Run-time error '3001':

Аргументы имеют неверный тип, выходят за пределы
допустимого диапазона или вступают в конфликт друг с другом.

Debug выделяет сттрочку
rs.Find sCrit, 0, adSearchForward

Когда делаю просто выборку SQL с требуемым значением, то результат есть...
База MSSQL Server...

В чем может быть проблема?

[AF]

Может быть нужен дополнительный REfresh, такая ошибка обычно вылазит, когда непорядок с данными