在VBA中以编程方式创建组合框或下拉列表

Question

我可以使用VBA成功创建组合框，但只有第一次，然后弹出错误

  

所调用的对象已与其客户端断开连接。

有人知道为什么会这样吗？下面是我的编码。

    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, displayasicon:=False, Left:=224.5, Top:=34, Width:=118, Height:=18)
        .Object.AddItem "SDfsd"
        .Object.AddItem "Date"
        .Object.AddItem "Player"
        .Object.AddItem "Team"
        .Object.AddItem "Goals"
        .Object.AddItem "Number"
End With