I have the following code on the click event of the List Box:

Private Sub List_22215_Click()
On Error GoTo Err_code
Me.CR_NO = Left(Me.List_22215, 2) & Right("0000000" & CStr(CLng(Right(Me.List_22215, 5)) + 1), 5)
Me.List_22215.Requery
Me.DATE.SetFocus
Exit Sub
Err_code:
MsgBox Error$


End Sub

When I click on any value in the list box the cursor remains on that value. I want it to go to the first value (or the top value). For that I used Me.List_22215.Requery but it doesn't work.