关于datdgrid控件的问题（顺便看看代码有没有问题）

[a2433]

Private Sub Form_Load()
Dim db As Connection
Dim adoPrimaryRS As Recordset
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=E:\我的文档\数据库.mdb;"
Set adoPrimaryRS = New Recordset

adoPrimaryRS.Open "select 品名,规格,单位,数量,出库日期 from 发行赠品出库表", db, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = adoPrimaryRS


mbDataChanged = False
End Sub

我想在adoPrimaryRS.Open "select 品名,规格,单位,数量,出库日期 from 发行赠品出库表"后面加上“where 品名=aa” 语句可是总显示错误如何解决

[CPLiu]

where 品名='aa'

[huangjianyou]

select 品名,规格,单位,数量,出库日期 from 发行赠品出库表 where 品名='aa'

^_^

[yezaoshu]

adoPrimaryRS.Open "select 品名,规格,单位,数量,出库日期 from 发行赠品出库表 where 品名='" & textbox1.text & "'", db, adOpenStatic, adLockOptimistic

[a2433]

楼上那样不行，我试了，报错：至少有一个参数没被指定