[fireswored1]

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

اخوتي الاعزاء انا احاول عند تشغيل الفورم يستدعي قيمة الendtime لليبول في حالة انها فراغ يظهر ليبول Welcomeاما في حالة الendtime اكبر او يساوي ليبول 4 يظهر ماسج بوكس ولكن عند التشغيل يظهر لي خطاء سارفع صورة الخطاء ومرفق الملف موضح فيه اكثرالصور مرفقة ايضا 

---

عزرا هذا هو الملف مرفق

[fireswored1]

في تحت end using بتوقفه

[fireswored1]

لا بس جربت استخدم كود تاني وبرده عمل خطاء في "dt"

كود :

'Dim q As String = "select * from new_data where ID='" & techang.Text & "'"
       'Using con As OleDb.OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=logcode.mdb;;Jet OLEDB:Database Password=8294;")
       '    Using cmd As OleDbCommand = New OleDbCommand(q, con)
       '        Using da As New OleDb.OleDbDataAdapter()
       '            da.SelectCommand = cmd
       '            Using dt As New DataTable
       '                da.Fill(dt)
       '                If dt.Rows.Count > 0 Then
       '                    Label2.Text = dt.Rows(0)(3).ToString()
       '                    Label1.Text = dt.Rows(0)(4).ToString()

       '                End If
       '            End Using
       '        End Using
       '    End Using

[fireswored1]

انا مسحت واحد منهم فعلا واشتغل بس المفروض في خطوة بعدها بيعمل تحديث لقعدة البيانات فبيدي خطاء عند cmd.ExecuteNonQuery() 
مرفق الملف الجديد بعد التعديل

[fireswored1]

لقد وجدت الخطاء وتم الحل شكرا ولكن احتاج مساعدة انا انهيت مشروعي واريد تصديره الي شخص اخر علي شكل exe ممكن شرح تفصيلي للخطوات