[السكر المغرور]

هكذا اخي

كود :

Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\for my folder\my new project\WindowsApplication39\bin\Debug\library code.mdb")
Dim editcommand As New OleDbCommand("Update subject_library set  subject_content= @Par_subject_content , subject_name= @Par_subject_name , subject_node= @Par_subject_node , subject_notes= @Par_subject_notes , subject_tool= @Par_subject_tool  ", con)
editcommand.Parameters.Clear()
editcommand.Parameters.AddWithValue("@Par_subject_content", OleDbType. WChar).Value = Trim(TextBox1.Text)
editcommand.Parameters.AddWithValue("@Par_subject_name", OleDbType. WChar).Value = Trim(TextBox2.Text)
editcommand.Parameters.AddWithValue("@Par_subject_node", OleDbType. WChar).Value = Trim(TextBox3.Text)
editcommand.Parameters.AddWithValue("@Par_subject_notes", OleDbType. WChar).Value = Trim(TextBox4.Text)
editcommand.Parameters.AddWithValue("@Par_subject_tool", OleDbType. WChar).Value = Trim(TextBox5.Text)

con.Open()
editcommand.ExecuteNonQuery()
con.Close()