السلام عليكم إخواني الكرام...

قبل البدء أعلم أنني مبتدئ جدًا في البرمجة.

أنا أصمم برنامجًا بسيطًا لقاعدة بيانات على الفيجوال بيسيك 2010 وقمت بربطه بملف الأكسس، وهذا هو الكود حتى الآن:

Imports System.Data.OleDb

Public Class Form1

Dim conn As New OleDbConnection

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\قاعدة بيانات.accdb"
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    conn.Open()
    Dim cmdinsert As New OleDbCommand
    cmdinsert.Connection = conn
    cmdinsert.CommandText = "insert into قاعدة بيانات Values (' " + TextBox1.Text + "' , ' " + TextBox2.Text + " ' , ' " + TextBox3.Text + " ' , ' " + TextBox4.Text + " ' , ' " + TextBox5.Text + " ' , ' " + TextBox6.Text + " ' )"
    cmdinsert.ExecuteNonQuery()
    MsgBox(" تم إضافة العضو بنجاح ")

    conn.Close()
End Sub

End Class

وعندما أقوم بعمل Run للبرنامج لتجربته تظهر لي الرسالة التي في الصورة التالية:

https://suar.me/1qXdw

وهذا الفيديو يوضح المشكلة أيضًا:

https://youtu.be/is4_w7EaL8Y

فأرجو لمن يستطيع حل هذه المشكلة التي تعطلني أصلًا من إكمال البرنامج