How do I. Insert table database in oledb connection error

See more:

VB

errors

OleDb

connection

provider = "provider=Microsoft.ace.OLEDB.12.0;DATA SOURCE="
datafile = "C:\Users\hp\Documents\Sports_Shop_Management_System\Sports_Shop_Management_System\Sports_Shop_Management_System11.accdb"
connstring = provider & datafile
myconnection.ConnectionString = connstring
myconnection.Open()
Dim str As String
str = "insert into PURCHASE([Pur_ID],[Prod_ID],[Prod_Name],[Price],[Qty],[Tot_Amt],[Pur_Date],[Sup_ID],[Sup_Name],[Add],[Ph_No],[E-mail_ID]) values (?,?,?,?,?,?,?,?,?,?,?,?)"
Dim cmd As OleDbCommand = New OleDbCommand(str, myconnection)
cmd.Parameters.Add(New OleDbParameter("Pur_ID", CType(TextBox5.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Prod_Name", CType(TextBox2.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Price", CType(TextBox4.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Prod_ID", CType(TextBox1.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Qty", CType(TextBox5.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Tot_Amt", CType(TextBox11.Text, String)))

cmd.Parameters.Add(New OleDbParameter("Sup_ID", CType(TextBox10.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Sup_Name", CType(TextBox8.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Add", CType(TextBox9.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Ph_No", CType(TextBox7.Text, String)))
cmd.Parameters.Add(New OleDbParameter("E-Mail_ID", CType(TextBox6.Text, String)))
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myconnection.Close()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try

What I have tried:

i want to insert table database but i will face this error"Not allowed to change the 'ConnectionString' property. The connection's current state is open." pls any one help me pls pls