vb.net中如何实现向access中插入一条记录？
下列代码有错吗？这是别人给我的代码，可以运行成功，但是我换了一个数据库和数据表，把代码中相应的部分改过之后却运行不成功，为什么？我是了好多遍都不行，急死了！请高手帮帮忙！谢谢！
Dim ex As IntegerOleDbConnection1.Open()
OleDbDataAdapter1.InsertCommand.CommandText = "insert into 计01B104(姓名04,性别04,出生年月04,住址04) values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "','" & Trim(TextBox3.Text) & "','" & Trim(TextBox4.Text) & "')"
Try
ex = OleDbDataAdapter1.InsertCommand.ExecuteNonQuery()
Catch
MsgBox("不能插入相同的记录")
End Try

DataSet11.Clear()
OleDbDataAdapter1.Fill(DataSet11)
OleDbDataAdapter1.Update(DataSet11)
OleDbConnection1.Close()