Dim rs As ADODB.Recordset
 
str = " Select Kst_ID, Kst_Kst, Kst_Bezeichnung From Kostenstelle"
str = str & " Where Kst_Mandant = " & nMandant
str = str & " Order by Kst_Kst"
 
Set rs = New Recordset
 
With rs
    .Open str, CON, adOpenDynamic
 
    If .EOF Then
        MsgBox "Keine Daten in Kostenstelle vorhanden!", vbInformation, "Keine" & _
          "Daten!"
        .Close
        Exit Sub
    End If
End With
 
With Feld
    .Clear
    .AutoComplete = True
 
    Set .Recordset = rs
 
    .Columns(1).Visible = False
    .Columns(2).Width = 600
    .Columns(3).Width = 2300
 
    .BoundColumn = 1
    .DisplayColumn = 2
    .ListWidth = 4000
End With
rs.Close