Private Sub ActiveXStr0_Change()
Debug.Print Me.ActiveXStr0.Object.SubItem(Me.ActiveXStr0.Object.ListIndex, 2)
End Sub
 
Private Sub Form_Load()
Dim ssql As String
    With Me.ActiveXStr0
        .Style = rsComboBox
        .AutoComplete = True
        ssql = "SELECT NR, Text FROM Tabelle1"
        Set .Recordset = CurrentDb.OpenRecordset(ssql)
        .BoundColumn = 1
        .DisplayColumn = 1
End With
End Sub