المشرفين والاعضاء الكرام :
ارجو مساعدتي ..
ماالخطأ في الكود التالي ، حيث انني عندما أقوم بتنفيذه يوقف التنفيذ عند السطر :
inscom.ExecuteNonQuery()
Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
Dim inscom As New OleDbCommand
inscom.Connection = OleDbConnection2
OleDbConnection2.Open()
inscom.CommandText = "insert into patient(pat_no,pat_name,age,nat,occup,dosage) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox4.Text & "' )"
inscom.CommandType = CommandType.Text
inscom.ExecuteNonQuery()
MessageBox.Show("تم الحفظ")
OleDbConnection2.Close()
Label8.Enabled = False
End Subوجزاكم الله خيرا .