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 IfI 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?