ممكن مثال حول استخدام الدالة EOF

if RS.EOF then

msgbox "لقد وصلت لنهاية السجلات"

EXIT SUB

END IF

معناها End Of File , مثال :

Dim item As String
Dim FF As Integer
FF = FreeFile()

Open "SMTPServers.lst" For Input As #FF
Do Until EOF(FF)
	Line Input #FF, item
	cmbosmtpserver.AddItem item
Loop
Close #FF

مشكور حبيبي مشكور جدا