向水晶报表传递数据问题!!!

Question

向水晶报表传递数据的代码如下：
Private Sub Excutecmd_Click()
        Dim sql3 As String
        startConn
        sql3 = "select * from (Maintb inner join Detailtb on Maintb.LOTNO=Detailtb.LOTNO) inner join Detailtb1 on Maintb.LOTNO=Detailtb1.LOTNO where Maintb.LOTNO='" & Trim(txtLOTNO.Text) & " '"
        Set objcrreport = objcrapp.OpenReport(App.Path & "\Newreport.rpt", 1)
        If rs.State = adStateOpen Then rs.Close
        rs.Open sql3, cn, adOpenDynamic, adLockOptimistic
        objcrreport.DiscardSavedData
        objcrreport.Database.SetDataSource rs
        CRViewer91.ReportSource = objcrreport
        CRViewer91.ViewReport
End Sub
执行时提示下标越界!请问是怎么回事？我是数据库是Access

Answer 1

为什么没人回这个贴？高手如云的CSDN怎么会这样？急死人啊!

Answer 2

1，你F8看看你那句代码出问题。
2，如果确定你SQL执行后都问题，就去检查报表上你的字段是否绑定正确