行集合不能作为标签

VB code

Private Sub Command1_Click()Set db = New ADODB.ConnectionSet rs = New ADODB.Recordsetdb.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=lzjc;Data Source=."db.OpenIf Option1.Value = True Thenrs.Open "declare @a varchar(20) set @a=(select DateName(year,GetDate())) select sum(收入) as 第一月销售总金额  from ri where 日期 between  LTRIM(@a)+'-9-1' and LTRIM(@a)+'-9-30'", db, adOpenStatic, adLockReadOnlySet DataGrid1.DataSource = rsEnd IfEnd Sub

运行提示 行集合不能作为标签 我把

VB code

rs.Open "declare @a varchar(20) set @a=(select DateName(year,GetDate())) select sum(收入) as 第一月销售总金额  from ri where 日期 between  LTRIM(@a)+'-9-1' and LTRIM(@a)+'-9-30'", db, adOpenStatic, adLockReadOnly

改成

VB code

select sum(收入) as 第一月销售总金额  from ri where 日期 between '2009-9-1' and '2009-9-30'

就能成功

[解决办法]
db.CursorLocation = adUseClient