Private Sub txtVerbund_GotFocus()
' --------------- die Combo Boxen mit Werten füllen ------------------------
'ComboBox  mit Daten Füllen
Set ComboBoxoDB = DBEngine.OpenDatabase(App.Path & "\Daten.mdb") '
With txtVerbund
Set .Recordset = ComboBoxoDB.OpenRecordset("Select Verbund From Stammdaten" & _
  "Group by Verbund Order By Verbund")
.Columns(1).Width = 2500
.BoundColumn = 1 'gebundene Spalte festlegen
'DroppedDown = True
End With
cmdEnde.SetFocus
End Sub