Private Sub TariffValue()
  Dim s As String
  Dim rst As DAO.Recordset
  
On Error GoTo ErrNumber
  If Me.cbxАдрес.ListIndex = -1 Then GoTo ExitHeare
  s = "SELECT * FROM ТарифыЭлектроЭнергия WHERE ТарифыЭлектроЭнергия.Адрес = " & Me.cbxАдрес & ";"
'Debug.Print s
  Set rst = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
  With rst
    Me.ТарифТ1 = .Fields("ТарифТ1").Value
    Me.ТарифТ2 = .Fields("ТарифТ2").Value
    Me.ТарифТ3 = .Fields("ТарифТ3").Value
  End With
  rst.Close
ExitHeare:
  Set rst = Nothing
Exit Sub
  
ErrNumber:
  If Error <> 0 Then
    MsgBox Err.Description, , _
      "№ " & Err.Number & ". Процедура: TariffValue. Форма: " & Me.Name
    Resume ExitHeare
  End If
End Sub