Dim i, x As Integer
  i = 5
  For x = 1 To i
    With txtSprache(x) 'Sprachen
      '.Style = rsImageCombo
      .ColumnAdd , "ID", 500  'zb: 64
      .ColumnAdd , "KText", 500 ' z.B. "de"
      .ColumnAdd , "LText", 1000  'z.B. "deutsch"
      ' 2. Spalte an die TextBox binden
      .DisplayColumn = 3
      'diese Spalten nicht anzeigen
      .Columns(1).Visible = False
      .Columns(2).Visible = False
      .Sorted = True
      .AutoComplete = True
      .ListWidth = 1200
    End With
  Next x
  i = 5
  For x = 1 To i
    With txtSprache(x) 'Sprachen
      'Icon-Auflistung erstellen
      Do While Not adoRS.EOF
        If adoRS!FGID = 4 And adoRS!FIcon <> "" Then
          .Icons.Add LoadPicture(App.Path & "\icons\" & adoRS!FIcon), _
            adoRS!FKText  'FKText = Icon-Schlüssel
        End If
        adoRS.MoveNext
      Loop
      adoRS.MoveFirst
      ' ListBox mit Daten füllen
      Do While Not adoRS.EOF
        If adoRS!FGID = 4 Then .AddItem adoRS!FID & vbTab & adoRS!FKText & _
          vbTab & adoRS!FLText, , adoRS!FKText
        adoRS.MoveNext
      Loop
      adoRS.MoveFirst
    End With
  Next x