I am passing in the key of the item in the combo box I want to show:

If iSalespersonKey <> 0 Then

    Dim iIndexNum As Integer
    Dim iItemKey As Integer
    
    For iIndexNum = 0 To cboSalespersons.ListCount - 1
    
        iItemKey =Me!cboSalespersons.Column(iIndexNum, 0)
    
        If iItemKey = iSalespersonKey Then
        
            'Me!cboSalespersons.ListIndex = iIndexNum
        
        End If

    Next
    
End If

I cannot get this to work. I have tried numerous ways. I'm not sure the syntax is correct. Can someone point me in the right direction?