求助combo控件
Private Sub Form_Load()Text1.Text = ""
Call condatabase '连接数据库
Dim rsload As ADODB.Recordset '设置记录集并连接user_load表
Set rsload = New ADODB.Recordset
rsload.open "select * from user_load", cn, adOpenStatic, adLockPessimistic
Combo1.Clear
Do Until rsload.EOF
Combo1.AddItem rsload.fields("user_name") '下拉列表添加用户名称
rsload.movenext
Loop
End Sub
运行出现rsload的用户定义类型未定义,是怎么回事啊