快帮我吧！！不然被开除！！谢谢大家！！！

Question

我在窗体上放了一个text1,datagrid1Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()conn.ConnectionString = "driver={sql server};server=liuwx;database=临时数据库;persist security info=false;user id=libdev;password=2027552"conn.Open
rs.Open "select 书目主表.主书名,书目主表.ISBN,书目主表.分类号 from 书目主表,书目副表 where 书目主表.主书目ID=书目副表.主书目ID and 书目副表.主书目ID='" & Text1.Text & "'", conn, adOpenDynamic, adLockReadOnly
Set DataGrid1.DataSource = rs
End Sub当运行上面的程序时，我在text1中输入一个值，点command1
但出错：“实时错误'7004' 行集合不能做为标签"
这是什么错呀。
当我去掉 set datagrid1.datasource=rs 后没错。
但如果在窗体上放一下text2,我想用他来显示其中一个表中的字段的值，
text2.text=rs.Fields("书目主表.主书名").Value,也出错,为：
项目在所需用名称或序数未被发现。
这又是什么错？

Answer 1

加一句： Rs.CursorLocation = adUseClient　　　  rs.Open "select 书目主表.主书名,书目主表.ISBN,书目主表.分类号 from 书目主表,书目副表 where 书目主表.主书目ID=书目副表.主书目ID and 书目副表.主书目ID='" & Text1.Text & "'", conn, adOpenDynamic, adLockReadOnly

Answer 2

在你的表中加主KEY，没主KEY时，控件直接绑定就会报错。
你都快被开除了，还出这么少的分，欠扁：-）