General :: On Key Press Event

I have a code on my list

Code:
Private Sub Lista0_KeyPress(KeyAscii As Integer)
Dim strSQL As String
Dim db As DAO.Database
If KeyAscii = 50 Then
strSQL = "UPDATE tblZlecenia SET Priorytet = " & "7" & " WHERE ID_Zlecenia='" & Me.Lista0 & "'"
CurrentDb.Execute strSQL
End If
End Sub

When I press button "2" on my keyboard, my code is working (it's ok) but except this, changing selection on my list, to position where bound column starting from "2" character. What I should do, to not change possition on my list?