VB6 With Crystal report 8.5 Error

Hi

I am using Vb6 with Ms-Access Database 2003. In creating crystal report 8.5.
I got error message " Unable to Access First Record"-Sql error

my code is below, Please help me

Two tables connecting i am connecting using common code...
Please give sample code,project connecting multiple tables in crystal report

rs.Open "select * from DEL_DET,DEL_HEAD where DEL_DET.transno = DEL_HEAD.tran", CN, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
Salesdemo.DiscardSavedData
Salesdemo.Database.SetDataSource rs
Screen.MousePointer = vbHourglass
crviewerdaytoday.ReportSource = Salesdemo
crviewerdaytoday.Zoom (100)
crviewerdaytoday.ViewReport
Screen.MousePointer = vbDefault