Unable to Access first Record-Error message

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...



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
Else
MsgBox " No data found"
End If

Please don't post the same question more than once. I have asked the mods to delete your other threads on this same topic.