VB2008读取ACCESS错误，求解，谢谢大家

只用到ADODC控件，在VB60中完全正确，但在VB2008编译错误，是不是VB2008不支持Set语句了?  请各位帮忙修改一下代码，谢谢！
 Dim Conn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=用户表.mdb;Persist Security Info=False")
        Set rs = Conn.Execute("select * from 用户表")
        Textbox1.Text = rs("用户姓名")


[ 本帖最后由 吃力的转变 于 2010-4-22 17:47 编辑 ]