ما العيب في هذا الكود؟

السلام عليكم

Private Sub number_Change()

Adodc1.Recordset.MoveFirst

For t = 0 To Adodc1.Recordset.RecordCount - 1

Adodc1.Recordset.MoveNext

s = Left(Adodc1.Recordset.Fields(1), Len(number))

If number = s Then Exit For

Next

End Sub

ما العيب في هذا الكود؟حيث انه يعمل لمرة واحدة فقط عند الكتابة في التيكست فقط اول حرف ولا يعمل بعدها ارجوكم افيدوني