For Each Elem In МояФорма.Controls
  If IsObject(Elem) = True Then
   s = TypeName(Elem)
   If s <> "Nothing" Then
   m = Elem.TAG
    If m <> "" Then
      If s = "TextBox" Or s = "ComboBox" Then
        z = ТаблицаБДAccess(m) & ""
        Elem.text = z
      ElseIf s = "CheckBox" Then
        z = ТаблицаБДAccess(m) & ""
         If z = "Включено" Or z = "Так" Then
           Elem.value = 1
         Else
           Elem.value = 0
         End If
      ElseIf s = "OptionButton" Then
        If Not IsNull(PBSite_Tb6(m)) Then
          z = ТаблицаБДAccess(m) & ""
          ipl = Val(z)
          If Elem.Index = ipl Then
            Elem.value = True
          End If
        End If
      End If
    End If
   End If
  End If
  Next