Dim Conn As New ADODB.Connection, Rs As New ADODB.Recordset
        Dim i


        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents\我的数据源\123.mdb"
        Conn.Open()
      
        Rs.Open("select * from 1 where ID='ComboBox1.Text'", Conn, 3, 1)
        i = Rs.Fields("类别").Value
        TextBox1.Text = i


数据库中有3张表，1为数据库123的1号表，现1表中有字段“类别”内容为ABC，为什么在TextBox1显示不出来