А как же я? Вставить таблицу базы данных в oledb ошибка подключения

---

поставщик = "поставщика=Майкрософт.туз.OLEDB.12.0;ИСТОЧНИК ДАННЫХ="
файл данных = "C:\Users\hp\Documents\Sports_Shop_Management_System\Sports_Shop_Management_System\Sports_Shop_Management_System11.accdb"
connstring = поставщик & файл данных
myconnection.ConnectionString = connstring
myconnection.Открыть()
Тусклый str как струна
str = "вставить в PURCHASE([Pur_ID],[Prod_ID],[Prod_Name],[Price],[Qty],[Tot_Amt],[Pur_Date],[Sup_ID],[Sup_Name],[Add],[Ph_No],[E-mail_ID]) ценности (?,?,?,?,?,?,?,?,?,?,?,?)"
Дим объект oledbcommand cmd в качестве стр = новый объект oledbcommand (, myconnection)
cmd.параметры.Add(New OleDbParameter("Pur_ID", CType(TextBox5.Text, String)))
cmd.параметры.Add(New OleDbParameter("Prod_Name", CType(TextBox2.Text, String)))
cmd.параметры.Add(New OleDbParameter("Price", CType(TextBox4.Text, String)))
cmd.параметры.Добавить(Новый Класса Oledbparameter("Prod_ID", Ctype Для(Текстовое Поле Textbox1.Текст, Строку)))
cmd.параметры.Add(New OleDbParameter("Qty", CType(TextBox5.Text, String)))
cmd.параметры.Add(New OleDbParameter("Tot_Amt", CType(TextBox11.Text, String)))

cmd.параметры.Add(New OleDbParameter("Sup_ID", CType(TextBox10.Text, String)))
cmd.параметры.Add(New OleDbParameter("Sup_Name", CType(TextBox8.Text, String)))
cmd.параметры.Добавить(Новый Класса Oledbparameter("Добавить", Ctype Для(TextBox9.Текст, Строку)))
cmd.параметры.Add(New OleDbParameter("Ph_No", CType(TextBox7.Text, String)))
cmd.параметры.Добавить(Новый Класса Oledbparameter, ("Е-Mail_ID", Ctype Для(TextBox6.Текст, Строку)))
Попробуй
УМК.Метод executenonquery()
УМК.Располагать()
myconnection.Закрывать()
Текстовое Поле 1.Очистить()
Поле textbox2.Понятно()
Textbox3 и.Понятно()
TextBox4.Понятно()
TextBox5.Понятно()
TextBox6.Понятно()
TextBox7.Понятно()
TextBox8.Понятно()
TextBox9.Понятно()
TextBox10.Понятно()
TextBox11.Понятно()
Поймать ex как исключение
С помощью MsgBox(исх.Сообщение)
Конец Попытки

Что я уже пробовал:

я хочу вставить табличную базу данных, но столкнусь с этой ошибкой"не разрешено изменять свойство 'ConnectionString'. Текущее состояние соединения открыто." пожалуйста, ли один помочь мне, пожалуйста, пожалуйста

---