Вот я и вернулся. Помогите с комбобоксом в Access

Public Property Let TravelNum(ByVal TrlNum As Long)
'МАХ Получает номер заказа по Travel
'Dim StrSql As String
Dim ValueName As String
 
  IsTrueOll = False
  TrNum = TrlNum 'МАХ запоминаем номер из Travel
  'StrSql = "SELECT order_currency FROM main_order WHERE order_num = " & TrlNum
  If Not IsNull(DLookup("order_currency", "main_order", "order_num = " & TrlNum)) Then
      ValueName = DLookup("order_currency", "main_order", "order_num = " & TrlNum)
      If Trim(UCase(ValueName)) = "RUR" Or Trim(UCase(ValueName)) = "TND" Then
        MsgBox "Внимание! Выбранный Вами заказ " & vbCrLf & _
               "относится к валюте " & ValueName & vbCrLf & _
               "Но данный интерфейс предназначен" & vbCrLf & _
               "для работы только с заказами USD и EUR!", _
               vbCritical, "Внимание! Неверная валюта заказа!"
        Exit Property
      End If
      IsTrueOll = True
    Else
      MsgBox "Внимание! В базе данных не указана валюта заказа! " & vbCrLf & _
             "Работа с заказом невозможна!" & vbCrLf & _
             "Уточните валюту заказа и затем обратитесь в IT отдел!", _
             vbCritical, _
             "Ошибка в базе! Неверные данные!"
      Exit Property
  End If
 
  'МАХ устанавливаем в комбобоксе валюту заказа
  CBoxValues.Enabled = True
  CBoxValues.SetFocus
  CBoxValues.Value = ValueName
  CBoxValues.ValidationText = ValueName
'  CBoxValues.Text = ValueName
  LblValue.Caption = ValueName
  TxSumm.SetFocus
  CBoxValues.Enabled = False
  Me.Refresh
 
End Property