参数传递出错了，谁帮我看看

Question

谁指点一下，下面个代码为什么不行呢，提示类型不匹配，这段代码是在窗体加载的时候用来填充数据的
Private Sub Form_Load()
SelectDB("PERSON_NAME", "TB_DIM_PERSON", Combo7)
End Sub'填充数据
Private Function SelectDB(ByVal cName As String, ByVal tName As String, ByVal cCom As ComboBox)
Dim Rs As cRecordset
    Set Rs = cnn.OpenRecordset("SELECT [" & cName & "] FROM [" & tName & "]")
    Do While Not Rs.EOF
        cCom.AddItem (Trim(Rs(0)))
        Rs.MoveNext
    Loop
    Set Rs = Nothing
End Function

Answer 1

ByVal cCom As ComboBox
修改成
ByRef cCom As ComboBoxDim Rs As cRecordset
修改成
Dim Rs As Recordset

Answer 2

cRecordset 这个是你自己的对象吗，要是的话没问题，要不是还是把c去掉，ByVal cCom As ComboBox 这句吧ByVal去掉就行了，因为默认就是按地址传递的。不用写什么