معنی این اخطار چیه؟

[ali reza mansoori 2]

سلام به تمام دوستان
امروز بعد از چند هفته رفتم سر یکی از پروژه هام تا کمی تغییرات بدم که با اخطار زیر مواجه شدم
این اخطار زمانی رخ میده که یک تکه برنامه رو فراخانی میکنم
Private Sub Load_Combo9()
On Error GoTo Er1
Combo9.Clear
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & adres & ";Persist Security Info=False;Jet OLEDB:Database Password = 123"
SQL = "All WHERE Name<>'' "
rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic, adCmdTable
Do While Not rst.EOF
Combo9.AddItem rst!Name
rst.MoveNext
Loop
Exit Sub
Er1:
MsgBox Err.Description
End Sub
روش فراخوانی هم به شکل زیر هستش
Load_Combo9
اگر امکان داره کمی درباره این اخطار توضیح بدید و بگید معنیش چیه و چه زمان های رخ میده و برای برطرف کردن اون باید چه کار کنم

[IamOverlord]

در کدوم خط برنامه تون؟!

[setroyd]

این مشکل از فراخوانی یک module هست یا یک تابع تریف شده که بعد از فراخوانی این مشکلو ایجاد کرده در خطا که اینگونه معلومه ولی من تا حالا با این خطا روبرو نشدم .!

[ali reza mansoori 2]

خطا از خط اول هستش و وقتی این کد رو حذف میکنم خطا از خط اول تکه کد قبلی صادر میشه

[farboodj1375]

فکر کنم شما به طور اشتباهی بعد از End Sub یه End Sub یا End Function اضافه گذاشته باشی.منم به همین مشکل برخورده بودم دقیقا یادم نیست اشکال از چی بود ولی یه همچین چیزی بود.
اگه درست نشد برنامت رو بذار تا اصلاح بشه.

[setroyd]

اگه بزاری برای اصلاح روحت تر میشه به موضوع رسیدگی کرد .

[ali reza mansoori 2]

دوستان خیلی ممنون مشکلم حل شد
مشکل از آخرین خط کد بود
بعد از آخرین خط کد یه خط خالی و بعد از اون یه کاراکتر خالی(فکر کنم یه چی تو مایه های Alt+255) بود که بعد از پاک کردن اون مشکلم حل شد