With secSprache
      Set rs = db.OpenRecordset("tabSy_Sprache", dbOpenDynaset)
      If rs.RecordCount = 0 Then
        MsgBox "Es sind noch keine Sprachen in der Tabelle erfasst!", _
          vbInformation + vbOKOnly, "Information"
        GoTo FillUp_Funktionen
      End If
      ' Style: DropDownList
      .Style = rsDropDownList
      .ColumnAdd , "ID", 0
      .ColumnAdd , "Sprache", 1500
      .ColumnAdd , "Sort", 0
      While Not rs.EOF
        .AddItem rs.Fields("Spra_sSprachCode") & vbTab & rs.Fields( _
          "Spra_Ssprache")
        rs.MoveNext
      Wend
      ' 1. Spalte an die TextBox und 2. Spalte anzeigen und 3. Spalte sortieren
      .DisplayColumn = 2
      .BoundColumn = 1
      .SortColumn = 3
      .Sorted = True
 
      ' AutoComplete aktivieren
      .AutoComplete = True
      rs.Close
    End With

With secAbteilung
  .Clear
End With