Невозможно сохранить новую строку в базе данных из-за исключения OleDbException с использованием VB.NET

Question

Как следует из названия, у меня возникла проблема, и я не могу найти ее причину.

Imports System
Imports System.Data.OleDb

Public Class Register
    Dim con As New OleDbConnection
    Dim strProvider As String
    Dim strDataSource As String
    Dim tables As DataTableCollection
    Dim source1 As New BindingSource
    Dim strSQL As String
    Dim dt As New DataTable
    Dim ds As New DataSet
    Dim da As New OleDbDataAdapter

    Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
        Me.Close()
        SRS_Main_Menu.Show()
    End Sub

    Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
        strDataSource = "Data Source = C:\Users\WORK\Documents\vb.net db files\questionThreeDB1.mdb"
        strProvider = "PROVIDER= Microsoft.JET.OLEDB.4.0;"
        con.ConnectionString = strProvider & strDataSource
        tables = ds.Tables
        strSQL = "SELECT * FROM questionThreeTbl"
        da = New OleDbDataAdapter(strSQL, con)
        da.Fill(ds, "Students")
        Dim cb As New OleDbCommandBuilder(da)

        Dim dsNewRow As DataRow
        dsNewRow = ds.Tables("Students").NewRow()
        dsNewRow.Item(1) = txtId.Text()
        dsNewRow.Item(2) = txtName.Text()
        dsNewRow.Item(3) = txtSurname.Text()
        dsNewRow.Item(4) = txtCellNum.Text()
        dsNewRow.Item(5) = txtParCell.Text()
        dsNewRow.Item(6) = txtAddress.Text()

        ds.Tables("Students").Rows.Add(dsNewRow)
        da.Update(ds, "Students")

        MsgBox("New Student Record Saved")
        Me.Close()
        SRS_Main_Menu.Show()

    End Sub
End Class

В основном, когда я выбираю кнопку отправки, появляется ошибка, указывающая на строку:

da.Update(ds, "Students")

В нем говорится, что есть проблема с моим утверждением INSERT INTO. Любые подсказки относительно того, что здесь происходит?