なんという糞仕様なAccessのコンボボックス

コンボボックス内の任意のアイテムの選択の仕方
何でこうなったかと作った人に聞いてみたいですが、まー当時はこれでも大分便利だったんでしょう。。。

'''使い方： Call SelectComboBoxItem(Me.cmbTest, 14)
Private Sub SelectComboBoxItem(ByRef cmb As ComboBox, ByVal index As Long)
    On Error Resume Next
    Dim target As Control
    Set target = Me.ActiveControl
    cmb.SetFocus
    cmb.ListIndex = index
    target.SetFocus
    Set target = Nothing
End Sub