用户窗体组合框项目加载过程错误/子或功能未定义

Question

我正在创建一个用户窗体，在该窗体中初始化用户窗体后，会出现一个组合框，其中列出了人们可以选择的特定工作表中的一系列信息。
我只可以向combobox添加基本信息，例如，使用combobox.additem“ 1”，但是要使其读取范围，则得到了子或函数未定义的错误。

Public Sub UserForm_Initialize()
    Dim I As Integer
    Dim rulesSheet As Worksheet                 
    Set rulesSheet = Sheets("Rules")

    I = 1

    Do
        comboboxadd
        iteminbox = rulesSheet.Range("A" & I)
        CostCentreCMBox.AddItem (iteminbox)
        I = I + 1
    Loop Until iteminbox = " "

    CostCentreCMBox.ListIndex = 0  
End Sub

一旦我初始化用户表单，我希望组合框在工作表“规则” A列（行（与其中包含信息的列）一样）的范围内添加项目