为什么设置报表的数据集不行的,窗体的就可以.

yodong

Private Sub Report_Open(Cancel As Integer)
Dim aa As Variant
aa = Me.OpenArgs
Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
    If IsLoaded("pub_frm产品编号生成器") Then
    Set rs = cn.Execute("exec xs_pro_me产品编号生成表  '" & Forms!cl_frmlogin!username & "'")
    Else
    Set rs = cn.Execute(aa)
    End If
    Set Me.Recordset = rs
    rs.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub