Как подключить и вставить данные в ms access и VB.NET

---

я попытался подключить и добавить данные в ms access и vb.net
------------------------------------------------------------
это ошибка, которую я получаю :"не разрешено изменять свойство 'ConnectionString'. Текущее состояние соединения открыто."}

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

Импортирует System.Data.Для oledb
Общественного Класса Form1
Дим поставщика как строку
Dim файл данных в виде строки
Dim connString как строка
Dim myConnection As OleDbConnection = New OleDbConnection
Частная суб методе form1_load(как byval отправителя как системы.Объект, бывал е как система.EventArgs) Обрабатывает MyBase.Load
'TODO: эта строка кода загружает данные в таблицу 'Hospital Databasedataset.PatientTable'. Вы можете переместить или удалить его, если это необходимо.
Я.PatientTableTableAdapter.Заполните(Me.HospitalDatabaseDataSet.PatientTable)

Конец Подводной Лодки

Private Sub Button1_Click(бывал отправитель как система.Объект, бывал е как система.EventArgs) Обрабатывает Button1.Щелчок
provider = "Provider=Microsoft.ACE.OLEDB.12.0;Источник данных ="

файл данных = "D:\Dat.accdb;"

connString = поставщик & файл данных
myConnection.ConnectionString = connString

myConnection.Открыть()
Тусклый str как струна
стр = "вставить в DAT (в[Нет], [дата], [наименование], [пол],[возраст],[телефон],[болезни],[адрес],[дом],[номер],[номер],[цена]) Значения (@нет,@дата,@имя,@пол,@возраст,@телефон,@недугом, адрес@,@дом,@номере нет, типа@номер,@цена) "


Дим объект oledbcommand cmd в качестве стр = новый объект oledbcommand (, myConnection)
cmd.параметры.Добавить(Новый Класса Oledbparameter("Нет", Ctype Для(Текстовое Поле Textbox1.Текст, Строку)))
cmd.параметры.Добавить(Новый Класса Oledbparameter("Наименование", Ctype Для(Поле Textbox2.Текст, Строку)))
cmd.параметры.Добавить(Новый Класса Oledbparameter("Пол", Ctype Для(Textbox3 И.Текст, Строку)))
cmd.параметры.Add(New OleDbParameter("Age", CType(TextBox4.Text, String)))
cmd.параметры.Добавить(Новый Класса Oledbparameter, ("Телефон", Ctype Для(TextBox6.Текст, Строку)))
cmd.параметры.Add(New OleDbParameter("Desease", CType(TextBox7.Text, String)))
cmd.параметры.Add(New OleDbParameter("Address", CType(TextBox8.Text, String)))
cmd.параметры.Add(New OleDbParameter("Building", CType(TextBox10.Text, String)))
cmd.параметры.Добавить(Новый Класса Oledbparameter("Номер", Ctype Для(TextBox11.Текст, Строку)))
cmd.параметры.Add(New OleDbParameter("Room Type", CType(TextBox12.Text, String)))
cmd.параметры.Add(New OleDbParameter("Price", CType(TextBox13.Text, String)))
Попробуй
УМК.Метод executenonquery()
УМК.Располагать()
myConnection.Закрывать()
Текстовое Поле 1.Очистить()
Поле textbox2.Понятно()
Textbox3 и.Понятно()
TextBox4.Понятно()
TextBox5.Понятно()
Поймать ex как исключение
С помощью MsgBox(исх.Сообщение)
Конец Попытки
Конец Подводной Лодки

Private Sub Button2_Click(бывал отправитель как система.Объект, бывал е как система.EventArgs) Обрабатывает Button2.Click
Меня.Рядом()

Конец Подводной Лодки

Private Sub Button3_Click(бывал отправитель как система.Объект, бывал е как система.EventArgs) Обрабатывает Button3.Щелчок

Конец Подводной Лодки
End Класса

---