Что я делаю не так?

strCriteria = "[Код_заказа] = " & KodOrd
Me.RecordsetClone.FindFirst strCriteria

Полный код. Нет никакой ошибки, просто

Dim dbsCDB As Database
Dim rstSet As Recordset
Dim Kod As Integer
Dim KodOrd As Integer
Dim strCriteria As String
Set dbsCDB = CurrentDb


Set rstSet = dbsCDB.OpenRecordset("T_Order")
Kod = Me.Код_Физ_Лиц_Мат
rstSet.AddNew
rstSet!Код_Физ_Лиц_Мат= Kod
KodOrd = rstSet!Код_Заказа
rstSet.Update

rstSet.Close
dbsCDB.Close

Me.Refresh

strCriteria = "[Код_Заказа] = " & KodOrd
Me.RecordsetClone.FindFirst strCriteria