[سعود]

الخطا  الاول قبل اكمال النظر هو مسار ملف القاعدة مربوط باسم جهازك وهذا يكون ثابت ما يتغير لا بد من كتابة كود يجلب المسار بشكل اوتاميتيكي [ان صحت التسمية]

عدلته الى:

PHP كود :

   Public apath As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
    Public connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & apath & "\user44.accdb" 


جاري النظر ...

---

نصف ساعة احاول بجملة Insert into   ولم تزول رسالة الخطا الا بعدما غير مسمى عمود password الى  tpassword  اضفت حرف اضافي الى اوله

قارنه بماعندك

PHP كود :

 Dim cn As OleDbConnection = Nothing
        Dim cm As OleDbCommand = Nothing
        Dim str As String = ""
        cn = New OleDbConnection(connectionstring)
        str = "insert into user_(user_name,tpassword,s1,s11,s12,s13) values (@user_name,@tpassword,@s1,@s11,@s12,@s13)"
        cm = New OleDbCommand(str, cn)
        cm.Parameters.Add(New OleDbParameter("@user_name", TextBox1.Text))
        cm.Parameters.Add(New OleDbParameter("@tpassword", TextBox2.Text))
        cm.Parameters.Add(New OleDbParameter("@s1", TreeView1.Nodes(0).Checked))
        cm.Parameters.Add(New OleDbParameter("@s11", TreeView1.Nodes(0).Nodes(0).Checked))
        cm.Parameters.Add(New OleDbParameter("@s12", TreeView1.Nodes(0).Nodes(1).Checked))
        cm.Parameters.Add(New OleDbParameter("@s13", TreeView1.Nodes(0).Nodes(2).Checked))
        cn.Open()
        Try
            cm.ExecuteNonQuery()
            MsgBox("saved")
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")
        End Try 


---

حاول تبحث عن الاسماء المحجوزة لكي لا تقع مرة اخرى بنفس الخطا.