Не сразу обновляется поле в таблице Access

CREATE TABLE ParentTable (IdSteady uniqueidentifier null, ParentText varchar(255))
GO
CREATE TABLE ChildTable (IdSteady uniqueidentifier null default newid(),
	ParentId uniqueidentifier null ,
	ChildText varchar(255))
GO
CREATE Proc InsertInParentTable
(@ParentText varchar(255))
as
Set nocount on

declare @NewId uniqueidentifier

select @NewId = newid()

insert into dbo.ParentTable
(IdSteady, ParentText)
values
(@NewId, @ParentText)

select @NewId
GO
CREATE Proc InsertInChildTable
(@ParentId uniqueidentifier, @ChildText varchar(255))
as
Set nocount on

insert into dbo.ChildTable
(ParentId, ChildText)
values
(@ParentId, @ChildText)
GO

две таблицы:
ParentTable
Поля:
   IdRow - Счетчик
   IdSteady - Числовой (Код репликации)
   ParentText - Текстовый(255)

ChildTable
Поля:
   IdRow - Счетчик
   IdParent - Числовой (Код репликации)
   ChildText - Текстовый(255)

Три сохраненных запроса:

SelectFromLocalParentTable:
SELECT ParentTable.ParentText, ParentTable.IdRow
FROM ParentTable;

SelectFromLocalChildTable:
SELECT ParentTable.IdSteady, ChildTable.ChildText
FROM ParentTable INNER JOIN ChildTable ON ParentTable.IdRow = ChildTable.IdParent;

Update_IdSteady:
UPDATE ParentTable SET ParentTable.IdSteady = [A]
WHERE (((ParentTable.IdRow)=[B]));

Private SQLCnn As New SqlClient.SqlConnection
    Private AccessCnn As New OleDb.OleDbConnection
    Private AccessCnn1 As New OleDb.OleDbConnection
    Private SQLCmm As New SqlClient.SqlCommand
    Private AccessCmm As New OleDb.OleDbCommand
    Private AccessCmm1 As New OleDb.OleDbCommand

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        CnnAndCmmProperty()

        SQLCnn.Open()
        AccessCnn.Open()
        AccessCnn1.Open()

        TransferParentData()
        TransferChildData()

        AccessCnn1.Close()
        AccessCnn.Close()
        SQLCnn.Close()

    End Sub


    Private Sub CnnAndCmmProperty()
        SQLCnn.ConnectionString = ...
        AccessCnn.ConnectionString = ... Provider="Microsoft.Jet.OLEDB.4.0" ... 
        AccessCnn1.ConnectionString =  ... Provider="Microsoft.Jet.OLEDB.4.0" ... 
        
        SQLCmm.Connection = SQLCnn
        SQLCmm.CommandType = CommandType.StoredProcedure

        AccessCmm.Connection = AccessCnn
        AccessCmm.CommandType = CommandType.StoredProcedure

        AccessCmm1.Connection = AccessCnn1
        AccessCmm1.CommandType = CommandType.StoredProcedure

    End Sub

    Private Sub TransferChildData()
        SQLCmm.Parameters.Clear()

        SQLCmm.CommandText = "InsertInChildTable"
        SQLCmm.Parameters.Add("@ParentId", System.Data.SqlDbType.UniqueIdentifier)
        SQLCmm.Parameters.Add("@ChildText", System.Data.SqlDbType.VarChar, 255)

        AccessCmm.CommandText = "SelectFromLocalChildTable"

        Dim AccessReader As OleDb.OleDbDataReader = AccessCmm.ExecuteReader
        While AccessReader.Read()
            SQLCmm.Parameters(0).Value = AccessReader(0)
            SQLCmm.Parameters(1).Value = AccessReader(1)
            SQLCmm.ExecuteNonQuery()
        End While
        AccessReader.Close()

    End Sub
    Private Sub TransferParentData()

        SQLCmm.CommandText = "InsertInParentTable"
        SQLCmm.Parameters.Add("@ParentText", System.Data.SqlDbType.VarChar, 255)

        AccessCmm.CommandText = "SelectFromLocalParentTable"

        AccessCmm1.CommandText = "Update_IdSteady"
        AccessCmm1.Parameters.Add(New OleDb.OleDbParameter)
        AccessCmm1.Parameters.Add(New OleDb.OleDbParameter)

        Dim AccessReader As OleDb.OleDbDataReader = AccessCmm.ExecuteReader
        While AccessReader.Read()
            SQLCmm.Parameters(0).Value = AccessReader(0)
            AccessCmm1.Parameters(0).Value = SQLCmm.ExecuteScalar
            AccessCmm1.Parameters(1).Value = AccessReader(1)
            AccessCmm1.ExecuteNonQuery()
        End While
        AccessReader.Close()

    End Sub