Sub AddDataToWordField(Doc As Word.Document, FieldBookmark As String, Data As String)
    Dim rng As Word.Range
    For i =  1  To Doc.Fields.Count
        Set rng = Doc.Fields(i).Result
        If rng.Bookmarks( 1 ) = FieldBookmark Then
            rng.Text = Data
            i = Doc.Fields.Count
        End If
    Next
End Sub

Sub PrintDogovor(DogovorID As Integer)
    Dim oWord As Word.Application
    Dim oDoc As Word.Document
  ...
    Set oDoc = oWord.Documents.Add(Template:=CurrentProject.Path + "\" + "договор.dot", NewTemplate:=False, DocumentType:= 0 )
...
    Dim rst As ADODB.Recordset
    Set rst = cmd.Execute
    
    oDoc.Unprotect ""
    If Not (rst.EOF Or rst.BOF) Then
        For i =  0  To rst.Fields.Count -  1 
            If Not IsNull(rst.Fields(i)) Then
                AddDataToWordField oDoc, rst.Fields(i).name, CStr(rst.Fields(i).Value)
            End If
        Next
    End If
...
    oDoc.Protect wdAllowOnlyFormFields, True, ""
End Sub