CR &SQL

Hi all,

How to add Query Execution at detailed band of Crystal Report
pls
Here is my Code

Dim strSQL As String
Dim cn As New ADODB.Connection
Dim connectionstring As String

connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Visual Studio\Vb98\Prepaid Management System\Login.mdb"

cn.Open connectionstring

strSQL = "SELECT i.*, ii.* " _
& "FROM Inwards i LEFT JOIN Inwards_item ii ON i.receipt_no = ii.Receipt_no " _
& "WHERE ii.Receipt_no = " & inputinward.Txtreceiptno.Text
Debug.Print strSQL
CrystalReport1.SQLQuery = strSQL
cn.Execute strSQL
'CrystalReport1.DataSource = strSQL
CrystalReport1.ReportTitle = "Inwards Print Invoice Report"
CrystalReport1.Action = 1

cn.CloseMay be like this:
[code]
...
Dim rs as ADODB.RecordSet
Set rs = cn.Execute strSQL
CrystalReport1.DataSource = rs
CrystalReport1.ReportTitle = "Inwards Print Invoice Report"
...
[code]|||set rs = cn.Execute strSQL

Expectedn End of Statement.........