如何在vb.net中的ms访问数据库中添加一行

Question

我正在尝试使用VB.Net代码在MS Access数据库上添加数据行，但它似乎不起作用，它甚至没有给我一个错误。这是我的代码：

Private Sub btnComit_Click(sender As Object, e As EventArgs) Handles btnComit.Click
    If inc <> -1 Then

        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim dsNewRow As DataRow

        dsNewRow = ds.Tables("Leaveform").NewRow()

        dsNewRow.Item("FullName") = txtFullName.Text
        dsNewRow.Item("Department") = txtDepartment.Text

        ds.Tables("Leaveform").Rows.Add(dsNewRow)



        da.Update(ds, "Leaveform")

        MessageBox.Show("New Record added to the Database")

        btnComit.Enabled = False
        btnAddNew.Enabled = True
        btnUpdate.Enabled = True
        btnDelete.Enabled = True

    End If