类中返回值问题？

我在类模块中写一个查询语句，我在其它窗体想调用查询结果却什么都看不到为什么？窗体那部分代码不知道怎么写了？？
cnn.cls

Public Function Cur_Select(arg)
SqlStr = "Select * From user_table where username='" & arg & "'"
rst.CursorLocation = adUseClient
rst.LockType = adLockOptimistic
rst.Open SqlStr, cn, adOpenDynamic, adCmdText '打开记录集
'Set Login.DataGrid1.DataSource = rst '给DataGrid修改数据源
End Function

窗体代码
Private Sub ok_Click()
'  
cn.Cur_Select(UserStr)
End Sub