vb.net向acces数据库添加记录，怎么用代码实现？

我想用vb.net向acces数据库中添加一条新纪录，实现代码如下：

Dim myconn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=客户信息管理系统数据库.mdb") 

myconn.Open() 

Dim myadap As New OleDb.OleDbDataAdapter("select * from 产品信息", myconn) 

Dim mydset As New DataSet 

Dim mytable As New DataTable 

myadap.Fill(mydset, "产品信息") 

Dim mycommand = New OleDb.OleDbCommand("insert into 产品信息(产品编号,产品名称,产品型号,产品价格) Values('" & Trim(TextBox1.Text) & " ','" & Trim(TextBox2.Text) &" ',' "& Trim(TextBox3.Text) &" ','"&Trim(TextBox4.Text)&"', myconn) 

myadap.Update(mydset, "产品信息")

myconn.Close()