دوستان من تويكي از ماژول هاي برنامم دو بار از دستور On Error Goto استفاده كردم. ولي فقط اولي اجرا ميشه و و وقتي ارروري رخ مي ده و بايد بره سراغ دستور دومي، نميره. مشكل كجاست؟ (مثلا در زير اگر تصويري در مسير نباشه پيغام ميده ولي اگه توي load گريد ارروري پيش بياد نميره سراغ خط StartError)
On Error GoTo AddErr
pic = "D:\picture.jpg"
Form2.Image.Picture = LoadPicture(pic)
AddErr:
Unload Me
("!تصوير مورد نظر يافت نشد")MsgBox

On Error GoTo StartError
mn = "Select * From Table"
rs.Open mn, strcon, adOpenStatic, adLockOptimistic
Form2.Grid1.DataSource = rs1
StartError:
MsgBox Err.Description