txt_Bank.ColumnAdd , "Name"
txt_Bank.ColumnAdd , "ID", 300
txt_Bank.Columns(1).Visible = False

Sub Banken_einlesen()
    Dim SQL As String
    Dim TBanken As New ADODB.Recordset
    SQL = "SELECT * from Bankenstamm Order By Bezeichnung"
 
With TBanken
    .Source = SQL
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
    .Open , db
 
    While Not .EOF
        bez = .Fields("Bezeichnung")
        BID = .Fields("ID")
 
        If Trim$(Konr) <> "" Then
            txt_Bank.AddItem BID & vbTab & Trim$(bez)
        End If
        .MoveNext
    Wend
 
End With
TBanken.Close
End Sub