منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ..
الاخوة ماسبب ظهور خط اخضر متعرج تحت عبارة
End Function
مرفق الكود:

Public Function IsConnected(ByVal strQry As String, ByVal ver As Boolean)
Try

If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\database.mdb;"
Conn.Open()

Cmd.CommandText = strQry
Cmd.Connection = Conn

If ver = False Then
DR = Cmd.ExecuteReader()
Else
Cmd.ExecuteNonQuery()
End If

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try

End Function

End Module

وعليكم السلام ورحمة الله وبركاته

لانك لم تقم بإرجاع قيمة
إذا كنت لا تريد ارجاع قيمة استبدل كلمة Function بكلمة Sub

وفقك الله كيف ارجع قيمة المشروع كله قائم على الموديل

فقط إستبدل Function ب Sub

الف شكر تم الاستبدال بدون مشاكل