Set MwSt.DataSource = rsDetailDaten 'Zielfeld binden (Double als Festkommazahl 
' mit 2)
With MwSt
    Set .Recordset = rsZTMWST       'Combobox aus Quelltabelle füllen
    .Columns(1).Width = 800	    'Spalte 1 (Double als Festkommazahl mit 2) der 
    ' eigentliche Wert
    .Columns(2).Width = 4000	    'Spalte 2 (Text, zur Erklärung Spalte 1)
    .BoundColumn = 1
    .DisplayColumn = 1
    .ListWidth = 4500
End With