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

[vissalan]

谁指点一下，下面个代码为什么不行呢，提示类型不匹配，这段代码是在窗体加载的时候用来填充数据的

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

[threenewbee]

ByVal cCom As ComboBox
修改成
ByRef cCom As ComboBox

Dim Rs As cRecordset
修改成
Dim Rs As Recordset

[苏马赫]

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