عدم اجرای Cm2.ExecuteNonQuery()

[SOLMAZ.ZM]

کد زیر قبلا اجرا میشده،حتی در بخش دیگه ای ازبرنامه هم اجرا می شد،اما در قسمتی اجرا نمیشه...هیچ پیغام خاصی هم نمیده....


نقل قول:
[align=left][align=left]Private Sub save_changes()
Dim Cm2 As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db1.mdb;Persist Security Info=False")
cn.Open()
Cm2.Connection = cn
da.SelectCommand = Cm2
'Emp_code.Text = edit_formcode.Text
Dim w As String
w = hard_code.SelectedItem.Text
Cm2.Parameters.Add("@FORM_CODE", OleDbType.VarChar, 100).Value = w
Cm2.Parameters.Add("@edit_case_model", OleDbType.VarChar, 100).Value = case_model.Text
Cm2.Parameters.Add("@edit_monitor_model", OleDbType.VarChar, 100).Value = monitor_model.Text

Cm2.CommandText = "Update hardware set [case_model]=@edit_case_model, [monitor_model]=@edit_monitor_model WHERE [form_code]=@FORM_CODE"
Cm2.ExecuteNonQuery()
cn.Close()    قول:


به قسمت Cm2.ExecuteNonQuery() که میرسه،ظاهرا اجرا نمیشه....
نمیدونم مشکل چیه لطفا راهنمایی فرمایین.
ممنون.