Save option

        Dim daTable As New OleDbDataAdapter("Select * from AssetMaster", pubCNN)
        Dim dsData As New DataSet

        daTable.Fill(dsData, "AssetMaster")

        Dim dtTable As DataTable
        dtTable = dsData.Tables("AssetMaster")

        Dim drTable As DataRow
        drTable = dtTable.NewRow

     
         drTable("ID") = Me.ID.Text
        drTable("NAME") = Me.NAME.Text
     
        dtTable.Rows.Add(drTable)

        Dim objCommandBuilder As New OleDb.OleDbCommandBuilder(daTable)

        daTable.Update(dsData, "AssetMaster")