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

سلام دوستان

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

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

با تشکر

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

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

سلام

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