动态给报表赋值没数据显示，请问怎么回事？？

Private Sub Report_Open(Cancel As Integer)
Dim sly As String

Dim objCn As New ADODB.Connection
Dim objRS As New ADODB.Recordset
Dim objRS1 As New ADODB.Recordset
Dim sql As String

sly = yhm
objCn.ConnectionString = "Provider=SQLOLEDB;Data Source=JACKE\JDSYERP;Initial Catalog=JDERP;User ID=sa;Password=jackeding"
objCn.Open
Set objRS1.ActiveConnection = objCn
   objRS1.CursorLocation = adUseClient
   objRS1.LockType = adLockOptimistic
   objRS1.Open "Select name From sysobjects Where name='" & sly & "peifang_mx_M_linshi'"
  
   objRS1.ActiveConnection = Nothing
   If objRS1.RecordCount > 0 Then
    
      sql = "SELECT * From " & sly & "peifang_mx_M_linshi  ORDER BY id compute sum(rl_bili) by id"
      Set objRS.ActiveConnection = objCn
      objRS.CursorLocation = adUseClient
      objRS.LockType = adLockOptimistic
      objRS.Open sql
      objRS.ActiveConnection = Nothing
       Set Me.Recordset = objRS
      objRs.close
   End If
 objRS1.Close   
 objCn.Close

上面是给报表提供动态访问数据源的代码，代码没提示错误，可是运行报表得不到数据