Marker tekst / spring tabulatorrækkefølge over

Hej

Jeg har en combobox der finder min record på basis af hvad jeg taster i feltet. Det virker fint.
Da jeg bruger en håndscanner til at give feltet input har jeg brug for at:

1. Cursor bliver i feltet og ikke springer videre i tabulatorrækken.
2. At teksten bliver markeret således at når jeg giver feltet input anden gang sletter den det der stod der og skriver det nye.

--------------------------------------------------------------

Private Sub Combo109_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Løbenummer] = " & Str(Nz(Me![Combo109], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub