Private Sub Combo361_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[AlphaSTREET] = '" & Me![Combo361] & "'"
Me.Bookmark = rs.Bookmark
Combo361 = "Enter or select"
End Sub