vb.net - データテーブルを 2 つのデータベースに保存する

Question

mydatatable の情報をデータベースに保存するコードと、以下のコードを使用している監査ファイルにも保存するコードがあります。ただし、コードの最初の部分はうまく機能しますが、2番目の部分はうまく機能しません。同じコードが他のデータベースで機能しないのはなぜですか.Auditファイルにデータテーブルを挿入していません

 '**************************************************************************************************************************************************
    '*********************  SAVE PRODUCT RAW MATERIAL DETAILS IN THE GRIDVIEW  ******************************************************

    Dim myConn As OleDbConnection = frmLogIn.Conn
    Dim oledbCmdBuilder As OleDbCommandBuilder
    Dim changes As DataTable

    Dim sql As String = "select * from ProductRawMaterial"
    Dim oledbAdapter As OleDbDataAdapter = New OleDbDataAdapter(sql, myConn)
    'Try
    oledbCmdBuilder = New OleDbCommandBuilder(oledbAdapter)
    changes = myTable.GetChanges()
    oledbCmdBuilder.ConflictOption = ConflictOption.OverwriteChanges

    If changes IsNot Nothing Then
        oledbAdapter.Update(myTable)
    End If
    'myTable.AcceptChanges()
    myConn.Close()

    'Catch ex As Exception
    '    MsgBox(ex.ToString)
    'End Try
    '***************************************************************************************************************************************************
    '*********************************************************    SAVING TO AUDIT   ****************************************************************

    Dim myKonn As OleDbConnection = frmLogIn.Connn
    Dim oledbCmdBuilderAudit As OleDbCommandBuilder
    'Dim changes As DataTable

    Dim sqlAudit As String = "select * from ProductRawMaterial"
    Dim oledbAdapterAudit As OleDbDataAdapter = New OleDbDataAdapter(sqlAudit, myKonn)
    'Try
    oledbCmdBuilderAudit = New OleDbCommandBuilder(oledbAdapterAudit)
    'changes = myTable.GetChanges()
    oledbCmdBuilderAudit.ConflictOption = ConflictOption.OverwriteChanges

    If changes IsNot Nothing Then
        oledbAdapterAudit.Update(myTable)
    End If
    myTable.AcceptChanges()
    myKonn.Close()

    'Catch ex As Exception
    '    MsgBox(ex.ToString)
    'End Try