Set findlist.MSHFlexGrid1.DataSource = rs 提示，“实时错误，要求对象”

Question

Private Sub Command1_Click()
MSHFlexGrid1.Cols = 500: MSHFlexGrid1.Rows = 500   '显示多少列多少行
MSHFlexGrid1.Col = 0: MSHFlexGrid1.Row = 0         '从第二行第二列显示
cn.ConnectionString = Str_Ado
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select   *   from   inventory   where cinvcode='001'", cn, adOpenKeyset, adLockOptimistic
'like   '% " & Trim(find.Text1.Text) & "% ' ", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
        MsgBox "查无此人! "
        Label1.Caption = Str$(0) + "人! "
        findlist.MSHFlexGrid1.Clear
Else
        Label1.Caption = Str$(rs.RecordCount) + "人! "
        Set findlist.MSHFlexGrid1.DataSource = rs
End If
rs.Close
End Sub
'在模组里定义如下变量:
Public cn As New ADODB.Connection       '通用连接资料库字串
Public rs As New ADODB.Recordset        '通用获取记录集字串
Public Const Str_Ado = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=ufhr;Data Source=zzh"
Public str_SQL As String                '通用SQL查询字串
Public sql As String
Public sql1 As String
Public sql2 As StringSub Main()
Form1.Show vbModal
End Sub运行Command1_Click()
时提示，“实时错误，要求对象”，MSHFlexGrid1控件也添加了，Set findlist.MSHFlexGrid1.DataSource = rs 这句话提示

Answer 1

findlist是什么？
是不是应该这样写:
MSHFlexGrid1.Clear
...
Set MSHFlexGrid1.DataSource = rs