Dim rs1 As ADODB.Recordset
    Set rs1 = Me.grData.Form.Recordset
    
    Dim rs2 As ADODB.Recordset
    Set rs2 = New Recordset
    
    Dim fld As ADODB.field
    For Each fld In rs1.Fields
        '    adChar         129 Indicates a string value (DBTYPE_STR).
        '    adWChar        130 Indicates a null-terminated Unicode character string (DBTYPE_WSTR).
        '    adVarChar      200 Indicates a string value.
        '    adVarWChar     202 Indicates a null-terminated Unicode character string.
        '    adLongVarChar  201 Indicates a long string value.
        '    adLongVarWChar 203 Indicates a long null-terminated Unicode string value.
        Select Case fld.TYPE
        Case adChar, adWChar, adVarChar, adVarWChar, adLongVarChar, adLongVarWChar
            rs2.Fields.Append fld.Name, fld.TYPE, fld.DefinedSize, adFldIsNullable
        Case Else
            ' Использование жесткой дисциплины именования полей
            ' не надо лезть куда-то еще за типом поля
            If Left(fld.Name, 1) = "i" Then
                rs2.Fields.Append fld.Name, adInteger, , adFldIsNullable
            ElseIf Left(fld.Name, 1) = "n" Then
                rs2.Fields.Append fld.Name, adInteger, , adFldIsNullable
            ElseIf Left(fld.Name, 2) = "dt" Then
                rs2.Fields.Append fld.Name, adDate, , adFldIsNullable
            ElseIf Left(fld.Name, 2) = "db" Then
                rs2.Fields.Append fld.Name, adDouble, , adFldIsNullable
            ElseIf Left(fld.Name, 2) = "mn" Then
                rs2.Fields.Append fld.Name, adCurrency, , adFldIsNullable
            Else
                rs2.Fields.Append fld.Name, fld.TYPE, fld.DefinedSize, adFldIsNullable
            End If
        End Select
    Next fld
    
    rs2.Open
    If Not rs1.BOF Or Not rs1.EOF Then
        rs1.MoveFirst
        While Not rs1.EOF
            rs2.AddNew
            For Each fld In rs1.Fields
                rs2.Fields(fld.Name).VALUE = fld.VALUE
            Next fld
            rs2.UpdateBatch
        rs1.MoveNext
        Wend
    End If
    
    Set Me.grData.Form.Recordset = rs2
    Me.grData.Form.AllowEdits = True

Цикл по "старому" рекордсету, или по исходной таблицы
Для каждой записи 
   если ее нет в "новом" рекодсете, куда наредактировали записи (т.е. она удалена)
   то удалить запись в "старом" рекордсете

Цикл по "новому" рекордсету
Для каждой записи 
   если запись есть в "старом" рекордсете
   то обновить ее данные по данным новой
   иначе добавить запись