Private Sub Combo20_AfterUpdate()
With Me.RecordsetClone
        .FindFirst “[CustNumber] = ” & Str(Nz(Screen.ActiveControl, 0))
        If .NoMatch Then
            MsgBox “Sorry, no such record!”
        Else
            Me.Bookmark = .Bookmark
        End If
    End With
    Me.LastName.SetFocus
End Sub

Private Sub Combo20_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Combo20_GotFocus()
Me.Combo20.Dropdown
End Sub

Private Sub Form_Open(Cancel As Integer)
    Me.Combo20.SetFocus
    Me.Combo20.Dropdown
End Sub