Почему вот такая вот конструкция не работает
re1.Open "select * from table", con
Set Reports(r1).Report(r).Recordset = re1
в чем проблема или это не должно работать

HELP!!!!

r1-наименование отчета
r-наименование подотчета
Наименования задаются ранее

извините
проект adp access 2000

при этом если отдельно открывать подчиненную форму и задавать
re1.Open "select * from table", con
Set Reports(r).Recordset = re1
все работает
а вот если уже основной отчет открываешь , то возникает ошибка

вот что значит невнимательность конечно 2002

вот этот кусок кода на подчиненную форму

Private Sub Report_Open(Cancel As Integer)
Me.Recordset = ROpen("rep"", "rep1", 1, 2
End Sub

Public Function ROpen(frm1 As String, frm As String, par As Integer, par1 As Integer) As Recordset
Dim d As String
Dim i, k As Integer
Call conn
pol.Open "select * from tsystema where par=" & par & " and par1=" & par1, con
While Not pol.EOF
For i = 1 To Reports(frm1).Report(frm).Controls.Count - 1
If Reports(frm1).Report(frm).Controls.Item(i).name = pol.Fields(4) Then
Reports(frm1).Report(frm).Controls.Item(i).ControlSource = pol.Fields(0)
End If
Next i
pol.MoveNext
Wend
re.Open "select * from tsystemreport where where1=" & par & " and where2=" & par1, con
d = re.Fields(1)
re1.Open d, con
Set Reports(frm1).Report(frm).Recordset = re1
End Function

точнее
Private Sub Report_Open(Cancel As Integer)
ROpen("rep"", "rep1", 1, 2)
End Sub

Public Function ROpen(frm1 As String, frm As String, par As Integer, par1 As Integer) As Recordset
Dim d As String
Dim i, k As Integer
Call conn
pol.Open "select * from tsystema where par=" & par & " and par1=" & par1, con
While Not pol.EOF
For i = 1 To Reports(frm1).Report(frm).Controls.Count - 1
If Reports(frm1).Report(frm).Controls.Item(i).name = pol.Fields(4) Then
Reports(frm1).Report(frm).Controls.Item(i).ControlSource = pol.Fields(0)
End If
Next i
pol.MoveNext
Wend
re.Open "select * from tsystemreport where where1=" & par & " and where2=" & par1, con
d = re.Fields(1)
re1.Open d, con
Set Reports(frm1).Report(frm).Recordset = re1
End Function

только вот если использовать тот подотчет отдельно без основного отчета и писать везде не
Reports(frm1).Report(frm) и т.д. ,а
Report(frm) , то все отрабатывается нормально