درخواست کمک برای اصلاح یه کد چند خطی

[Plex]

سلام دوستان

در کد زیر موقع کامپایل به خط دوم گیر میده. لطفا بفرمائید چطور می تونم این خطا رو رفع کنم؟

Do While Adodc1.Recordset.EOF = False
Adodc2.Recordset.EOF = False
If Adodc1.Recordset.Fields!English_Word = Trim(txtEnglish.Text) Then
pp = Adodc1.Recordset.Fields!English_Word
nn = Adodc2.Recordset.Fields!Farsi_Word
MsgBox "Error"
& vbCrLf + pp + " = " + nn, vbExclamation, "åÔÏÇÑ"
txtEnglish.Text = ""
txtFarsi.Text = ""
txtEnglish.SetFocus
Exit Sub
End If
Adodc1.Recordset.MoveNext
Adodc2.Recordset.MoveNext

Loop

با تشکر

[_H2_]

سلام
خصوصیت EOF نشانگر رسیدن به انتهای RecordSet است و یک خصوصیت ReadOnly است و شما اجازه مقدار دهی به آن را ندارید و فقط میتوانید آن را بخوانید

خط دوم شما کاملاَ قلط است و باید حذف شود

[Plex]

سلام

دوست عزیز متشکرم.