[求助]vb.net 向数据库添加记录

Dim a, b, c As String
a = cmbzhuangtai.SelectedIndex.ToString
b = cmbshifoupaigong.SelectedIndex.ToString
c = cmbyewuleixing.SelectedIndex.ToString
dt = Dsgaihao1.Tables("shenqinggaihao")
dr = dt.NewRow()
dr(0) = txtdanwei.text
dr(1) = txtyonghumingcheng.Text
dr(2) = txtshenqingren.Text
dr(3) = txtlianxidianhua.Text
dr(4) = txtlianxiren.Text
dr(5) = txtshenqingxiangmu.Text
dr(6) = c
dr(7) = txtdianhuahaoma.Text
dr(8) = txtzhuangjidizhi.Text
dr(9) = txtfenpeixinhaoma.Text
dr(10) = txtpizhunlingdao.Text
dr(11) = txtshoulishijian.Text
dr(12) = txtshoulingren.Text
dr(13) = txtshouliren.Text
dr(14) = b
dr(15) = a
dr(16) = rxbeizhu.Text
dt.Rows.Add(dr)
OleDbDataAdapter1.Update(Dsgaihao1, "shenqinggaihao")
OleDbDataAdapter1.Fill(Dsgaihao1)
bm.position = 0


向数据库里添加记录的 但是提示找不到第15例 可我明明有的啊

各位帮帮忙咯