请大虾帮忙VB中，对象变量或with块变量未设置

Private Sub LoadData()
'装载数据
    Dim strItem As String
    Dim strWhere As String
    '得到用户信息
    strWhere = " where 用户类别='" & Trim(cbokind.Text)
    strWhere = strWhere & "' and  用户ID like '" & txtUserIdQuery.Text & "%'"
    SQL = " select * from 用户信息表 " & strWhere & " order by 用户ID"
    Set rs = Nothing
    Set rs = SelectSQL(SQL, msg)
    ListUser.Clear                          '清空用户列表
    If rs.RecordCount > 0 Then              '如果存在记录
        '添加到用户列表
        Do While (Not rs.EOF) And (Not rs.BOF)
            strItem = Trim(rs.Fields(0)) & ":" & Trim(rs.Fields(1))
            ListUser.AddItem (strItem)
            rs.MoveNext                     '指向下一条记录
        Loop
        rs.MoveFirst                        '指向记录集的第一条
        ListUser.ListIndex = 0              '默ListBox
    Else
        '编辑控件可用性
        CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = False
        CmdCancel.Enabled = False: CmdSave.Enabled = False
        Exit Sub
    End If
    Call FixData                            '在控件中显示详细信息
    '编辑控件可用性
    CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = True
    CmdCancel.Enabled = False: CmdSave.Enabled = False
End Sub
运行说If rs.RecordCount > 0 Then这段出现对象变量或with块变量未设置问题