张杰在第几期开讲啦:vb.net中填写数据并更新数据库出现错误，请大家指点

我现在正在做一个添加信息的一个窗体，因为以前做过类似的一个没有问题，所以就把代码拿过来用，并已经把应该改的地方都改了，但是却提示“未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中”，仔细找了找，没找到毛病，代码如下：

Dim DS_kehuxinxi As DataSet = New DataSet
Dim row As DataRow
Dim dataadapter As New OleDbDataAdapter

Call conntodb() 自己定义的连接数据库的函数
dataadapter.SelectCommand = New OleDbCommand
dataadapter.SelectCommand.Connection = conn 连接对象实体
dataadapter.SelectCommand.CommandText = "select * from 客户信息"
dataadapter.Fill(DS_kehuxinxi, "客户信息")

row = DS_kehuxinxi.Tables("客户信息").NewRow
row.Item("客户编号") = TB_kehubianhao.Text
row.Item("姓名") = TB_xingming.Text
row.Item("性别") = CB_xingbie.Text
row.Item("证件名") = CB_zhengjianming.Text
row.Item("证件号") = TB_zhengjianhao.Text
row.Item("抵押证件") = CB_diyazhengjian.Text
row.Item("驾照号") = TB_jiazhaohao.Text
row.Item("电话") = TB_dianhua.Text
row.Item("地址") = TB_dizhi.Text
row.Item("邮编") = TB_youbian.Text
row.Item("传真") = TB_chuanzhen.Text
row.Item("E-MAIL") = TB_email.Text
row.Item("单位") = TB_danwei.Text
row.Item("单位地址") = TB_danweidizhi.Text
row.Item("登记时间") = DT_dengjishijian.Value
row.Item("备注") = TB_beizhu.Text
DS_kehuxinxi.Tables("客户信息").Rows.Add(row)

dataadapter = New OleDbDataAdapter("select * from 客户信息", conn)
Dim cmdbuder As New OleDbCommandBuilder(dataadapter)
dataadapter.Update(DS_kehuxinxi, "客户信息")
请大家帮忙看看，多谢了