' Definition der ComboBox-Eigenschaften
With txt_Bank
  .ColumnAdd , "id", , , False
  .ColumnAdd , "name"
 
  .BoundColumn = 1
  .DisplayColumn = 2
End With
 
' Liste füllen
Baken_einlesen

' Bank anhand ID voreinstellen
txt_Bank.BoundText = "id"  ' statt id natürlich den korrekt ID-Wert übergeben!

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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de