只用到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 编辑 ]

首先要引用ADO对象库，
其次修改代码Textbox1.Text = rs("用户姓名")为：
TextBox1.Text = rs.Fields("用户姓名").Value.ToString

谢谢 wei855198 的回答，能读数据库并显示了，多谢了，朋友