'ComboBox
 
    ' Eigenschaften der TextBox MwSt festlegen
  With sevMWST
    .Style = rsComboBox
    .AutoComplete = True
    'Formatierung festlegen
    .Format = rsCurrency
    .Decimals = 2
    .MaxLength = 5
    .AllowNegativeValue = False
    .CurrencyText = "%"
    'Recordset für Daten erstellen
      ' Recordset-Objekt erstellen und zuweisen
      strSQL = "SELECT MWST, MWSTSatz FROM MWST"
      Set rstMWST = New ADODB.Recordset
      rstMWST.CursorLocation = adUseClient
      rstMWST.Open strSQL, oConn, adOpenKeyset, adLockOptimistic
      rstMWST.MoveFirst
      Set .Recordset = rstMWST
      .DisplayColumn = 2
      .BoundColumn = 1
      .Columns(1).Visible = False
      ' Recordset-Objekt zerstören
      rstMWST.Close
      Set rstMWST = Nothing
  End With
 
sevMWST.DataField = "MWST"