With sevDatum
        .Style = rsDropDownList
        .ColumnAdd , "reisedatum", 1500
        .ColumnAdd , "tid", 800
        .Clear
        bRs.MoveFirst
        Do While Not bRs.EOF
           .AddItem Format$(bRs!RtAbWohnort, "dd.mm.yyyy") & vbTab & bRs!RtID
           bRs.MoveNext
        Loop
        .ListWidth = 2300
        .ListIndex = -1
    End With

Private Sub sevDatum_Click()
    With sevDatum
       TerminKey = .SubItem(.ListIndex, "tid")
    End With
 
    ....
    ....