مرکز انجمنهای تخصصی

کد زیر رو در نظر بگیرید لطفا...
[align=left]نقل قول:
Private Sub save_hard()
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db1.mdb;Persist Security Info=False")
Dim Cm As New OleDbCommand
Dim Da As New OleDbDataAdapter
cn.Open()
Cm.Connection = cn
Da.SelectCommand = Cm
Cm.CommandText = " INSERT INTO hardware( form_code,case_model,monitor_model,keyboard_model) values('" & hard_code.SelectedItem.Text & "','" & case_model.Text & "','" & monitor_model.Text & "','" & keyboard_model.Text & "')"
Cm.ExecuteNonQuery()
cn.Close()
End Sub

نقل  :


پیغام خطایی که میده اینه..Syntax Error همین کد رو یعنی بخش دستورش رو داخل محیط اکسس که اجرا میکنم هیچ مشکلی نداره!!
به نظرتون مشکل کجاست؟

ممنون