'使用论坛老师的一个实例，用一个交叉表查询为源制作一个报表，当在查询中添加一个条件后代码需要改动，请各位老师指教。谢谢！
'查询1名称:test2_交叉表1
TRANSFORM Last(test2.数量) AS 数量之最后一条记录
SELECT test2.编号
FROM test2
GROUP BY test2.编号
PIVOT test2.项目;
*******************
Private Sub Report_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim A, B, C
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "select * from test2_交叉表1", cn, adOpenKeyset, adLockPessimistic '取得来源记录集
If rs.Fields.Count > 11 Then A = 11 Else: A = rs.Fields.Count '假设记录集栏位大于11列,则a=11、否则a=记录集栏位数
If rs.Fields.Count = 0 Then Exit Sub
For B = 0 To A - 1
Me("N" & B).ControlSource = rs(B).Name
Next
Me.RecordSource = rs.Source
For C = 0 To A - 1
Me("L" & C).Caption = rs(C).Name
Next
End Sub
*****************************************88
'上面代码是用查询1制作一个报表（有11列），没有问题。但在查询中加入一个条件，制作报表就提示有问题：
***************************
'查询2：test2_交叉表1 添加了一个查询条件,打开报表提示：至少一个参数没有指定值
*****************
PARAMETERS [forms]![窗体1]![编号] Text ( 255 );
TRANSFORM Last(test2.数量) AS 数量之最后一条记录
SELECT test2.编号
FROM test2
WHERE (((test2.编号)=[forms]![窗体1]![编号]))
GROUP BY test2.编号
PIVOT test2.项目;
***************
rs.Open "select * from test2_交叉表2", cn, adOpenKeyset, adLockPessimistic '这一句提示：至少一个参数没有指定值
请看附件，这一句该怎样改动？谢谢！