rs.Fields.Append CN_DOC_NUMBER, CT_DOC_NUMBER
...
rs.Fields.Append CN_DOC_ROW_TYPE, CT_DOC_ROW_TYPE
    
rs.CursorLocation = adUseClient
rs.ActiveConnection = Nothing
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
    
rs.Open

LoadData

Me.Recordset = rs

Option Explicit
Option Compare Database

Private m_nTypeCode As Long
Private m_nStateCode As Long
Private m_nDocumentCode As Long
Private m_rsMain As New ADODB.Recordset

Public Sub Initialize(nTypeCode As Long, nStateCode As Long, nDocumentCode As Long)
    m_nTypeCode = nTypeCode
    m_nStateCode = nStateCode
    m_nDocumentCode = nDocumentCode
    
    m_rsMain.Fields.Append  "PriceCode" , adInteger
    m_rsMain.Fields.Append  "Quantity" , adInteger, , adFldUpdatable Or adFldIsNullable
    m_rsMain.Fields.Append  "Discount" , adDouble, , adFldUpdatable Or adFldIsNullable
    m_rsMain.Fields.Append  "ProductName" , adVarChar, LEN_PRODUCT_NAME
    m_rsMain.Fields.Append  "ProductTypeName" , adVarChar, LEN_PRODUCT_TYPE_NAME
    m_rsMain.Fields.Append  "ItemCost" , adInteger, , adFldIsNullable
    m_rsMain.Fields.Append  "Price" , adVarChar, LEN_FLOAT + LEN_CURRENCY_SIGN
    
    m_rsMain.Open
    
    Set Me.Recordset = m_rsMain
    
    LoadData
    
    m_rsMain.UpdateBatch
End Sub

Public Sub LoadData()
    Dim fld As ADODB.Field
    Dim rs As New ADODB.Recordset
    
    rs.Open  "SELECT * FROM dbo.select_DocumentsT3_ItemsList WHERE DocumentCode = "  _
    & m_nDocumentCode, CurrentProject.Connection, adOpenStatic, adLockReadOnly
        
    Do While rs.EOF = False
        m_rsMain.AddNew
        For Each fld In m_rsMain.Fields
            If Not fld.Name =  "ItemCost"  Then
                m_rsMain(fld.Name) = rs(fld.Name)
            End If
        Next fld
        rs.MoveNext
    Loop
End Sub