各位高手：

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "driver={sql server};server=wcg;uid=sa;pwd=;database=销售质量异议"
conn.Open str
str = "select * from zhlyy2"
rs.Open str, conn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs
End Sub
为什么运行时提示“实时错误‘7004’，行集合不能作为标签”
错误语句：Set DataGrid1.DataSource = rs

我想是不是DataGrid1的标签与rs不符。

加一句
conn.CursorLocation=adUseClient

在添加conn.CursorLocation=adUseClient语句之后，问题解决了，真是多谢了！这条语句是什末意思？它起什末作用呢？

CursorLocation,有两个取值，一个是adUseClient,一个是adUseServer（默认），前者是使用客户端的游标，而后者是使用服务器端的游标。二着的差别在于adUseClient游标可以提供供应商所没有提供的额外的属性，因而灵活性更大。需要注意的是Connection对象与RecordSet对象均有此属性，由Connection对象产生的RecordSet对象会自动的继承这个属性。另外要让此属性对Connection和RecordSet对象的实例起作用的话，必须在打开它们之前先定义。

多谢了hcc,你解释的很详细，不错！