Объект dataadapter.обновление выкидывает ошибку; rwuser datacollumn в объект DataTable экземпляр для sourcecollumn rwuser не спроста

---

Дорогие все,

Я пытаюсь обновить набор данных с помощью нескольких таблиц. Однако всякий раз, когда я хочу обновить, первая таблица, которую я хочу обновить, выдает ошибку, что collumn не существует в этой таблице. Это действительно до конца, но collumn только спроста в последней таблице я хочу, чтобы обновить. Я действительно пытался поменять местами (поставить последний первый и все), но все равно он продолжает давать мне ту же ошибку с тем же именем столбца.

Всегда отсутствует collumn rwUser..за исключением того, что в таблице с rwUser внутри это будет сделано правильно.

Ниже моего кода у меня есть, а также все таблицы и строки, которые у меня есть.

База данных, которую я создал с помощью Access 2016, является aacdb. И я использую Visual Basic 2017

база данных;

Слова, начинающиеся с ТБ, - это таблицы.

The Tables / rows I have;
•	tbAuthorizations
o	AuthorizationID
o	rwAuthorization (this to be used as sourch for table tbUsersAuthorizations / rwSetUser, rwSetData, rwSetSettings, rwSetReports
•	tbLocalDataFolder
o	LocalDataBaseID
o	rwDatabase
o	rwLocation
•	tbServerDataFolder
o	ServerDatabaseID
o	rwDatabase
o	rwLocation
•	tbUserAuthorizations
o	UserAuthorizationID
o	rwAuthUser = Lookup / relation of tbUsers – rwUserID
o	rwSetUser = Lookup / relation of tbAuthorizations - AuthorizationID
o	rwSetData = Lookup / relation of tbAuthorizations - AuthorizationID
o	rwIncludeFixData
o	rwSetSettings = Lookup / relation of tbAuthorizations - AuthorizationID
o	rwSetReports = Lookup / relation of tbAuthorizations – AuthorizationID
•	tbUsers
o	UserID
o	rwUser (this to be used as sourch for table tbUsersAuthorizations – rwUser)
o	rwInlogName
o	rwPassword
o	rwSercretQuestion
o	rwSecretAnswer
o	rwEmail
o	rwComputerName
o	rwWindowsUser
o	rwPasswordLogin
o	rwHoldOnStart
o	rwRememberName
o	rwRememberPassword

Что я уже пробовал:

Public Class Form1


    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbSource As String
    Dim dbFolder As String
    Dim dbName As String

    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        dbProvider = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;"
        dbName = "D:\SystemSettings.accdb"
        dbSource = "DATA SOURCE = " & dbName
        con.ConnectionString = dbProvider & dbSource
        con.Open()

        da = New OleDb.OleDbDataAdapter("SELECT * FROM tbAuthorizations", con)
        da.Fill(ds, "AuthDB")
        da.SelectCommand.CommandText = "SELECT * FROM tbLocalDataFolder"
        da.Fill(ds, "LocalDB")
        da.SelectCommand.CommandText = "SELECT * FROM tbServerDataFolder"
        da.Fill(ds, "ServerDB")
        da.SelectCommand.CommandText = "SELECT * FROM tbUserAuthorizations"
        da.Fill(ds, "UserAuthDB")
        da.SelectCommand.CommandText = "SELECT * FROM tbUsers"
        da.Fill(ds, "UsersDB")

        con.Close()

    End Sub
    Private Sub BtnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim dsNewRow As DataRow
        Try
            dsNewRow = ds.Tables("UsersDB").NewRow()
            dsNewRow.Item("rwUser") = txtNaam.Text
            dsNewRow.Item("rwInlogName") = TxtGeboorteplaats.Text
            ds.Tables("UsersDB").Rows.Add(dsNewRow)
            da.Update(ds, "UsersDB")

            dsNewRow = ds.Tables("LocalDB").NewRow()
            dsNewRow.Item("rwDatabase") = txtNaam.Text
            dsNewRow.Item("rwLocation") = TxtGeboorteplaats.Text
            ds.Tables("LocalDB").Rows.Add(dsNewRow)
            da.Update(ds, "LocalDB") ''exception error; DataCollumn rwUser in DataTable LocalDB for SourceCollumn rwUser doesn't excist

            dsNewRow = ds.Tables("ServerDB").NewRow()
            dsNewRow.Item("rwDatabase") = txtNaam.Text
            dsNewRow.Item("rwLocation") = TxtGeboorteplaats.Text
            ds.Tables("ServerDB").Rows.Add(dsNewRow)
            da.Update(ds, "ServerDB") ''exception error; DataCollumn rwUser in DataTable ServerDB for SourceCollumn rwUser doesn't excist

            dsNewRow = ds.Tables("UserAuthDB").NewRow()
            dsNewRow.Item("rwAuthUser") = txtNaam.Text
            dsNewRow.Item("rwSetUser") = TxtGeboorteplaats.Text
            ds.Tables("UserAuthDB").Rows.Add(dsNewRow)
            da.Update(ds, "UserAuthDB") ''exception error; DataCollumn rwUser in DataTable UserAuthDB for SourceCollumn rwUser doesn't excist

        Catch ex As Exception
            Dim s As String
            s = ex.StackTrace
        End Try

    End Sub

End Class

---