The dataset to write data show a success, also can see in the datagridview, but the database is not
Private Sub BTNWriteDB_Click (sender As Object, As EventArgs e) Handles BTNWriteDB. Click
'to write database
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 (" write successful ")
End Sub


Private Sub BTNDBVisible_Click (sender As Object, As EventArgs e) Handles BTNDBVisible. Click
If BTNDBVisible. Text="shows the database" Then
'AnswerDataSet1. Word.
DataGridView1. Visible=True
BTNDBVisible. Text="hidden database"
The Else
DataGridView1. Visible=False
BTNDBVisible. Text="shows the database"
End the If

End Sub