Private Sub ОткрытьШаблон_Click()
    Dim rsd As ADODB.Recordset,s
    Set rsd = New ADODB.Recordset
    strSQL = "select * from Люди where Код = " & Me.КодЛюди & ""
    rsd.Open strSQL, CurrentProject.Connection
    Set WordOb = CreateObject("Word.application")
    Set WordOb = GetObject(CurrentProject.path & "\Шаблон.dotm")
    Set WordApOb = WordOb.Parent
    WordOb.Bookmarks("Mesto").Select
        s1="" & rsd.Fields("МестоРождения") 
 if len(s1)=0 Then
                WordApOb.Selection.TypeText Text:="Пусто"
            Else 
               WordApOb.Selection.TypeText Text:=s1
        End If

Dim rsd As ADODB.Recordset,s1