dataset写数据显示成功了，在datagridview中也是可以看到了，但是数据库里还是没有

[csdnxhb2]

dataset写数据显示成功了，在datagridview中也是可以看到了，但是数据库里还是没有
Private Sub BTNWriteDB_Click(sender As Object, e As EventArgs) Handles BTNWriteDB.Click
'写数据库
With AnswerDataSet1.word
.AddwordRow(themno:=ThemId, myid:=myid, mysubid:=mysubid, secid:=Secid, pageid:=PageId, paraghid:=ParaghId, stylename:=StyName, searchtext:=SearchText, myvalue:=TXTValue.Text, score:=CMBScore.SelectedIndex)

End With
MessageBox.Show("写入成功")
End Sub


Private Sub BTNDBVisible_Click(sender As Object, e As EventArgs) Handles BTNDBVisible.Click
If BTNDBVisible.Text = "显示数据库" Then
'AnswerDataSet1.word.
DataGridView1.Visible = True
BTNDBVisible.Text = "隐藏数据库"
Else
DataGridView1.Visible = False
BTNDBVisible.Text = "显示数据库"
End If

End Sub