VB6 + DataReport to Fast Report ??

imate

hi dear friends .

i've download and try FR Studio trial version .

i already read all examples, but still haven??t found what i looking for.

What I need it to do is generate report from ado recordset and display the information in FR.

I want all the work done by vb Code.

I have attached an example of vb6 + Data Report, please turn it to FR Report .

Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Private Sub Command1_Click()
    Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False;Jet OLEDB:DataBase Password=123"
     
    Cn.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "SELECT * FROM Table1 WHERE point > 500", Cn, adOpenStatic, adLockPessimistic
 
    Set DataGrid1.DataSource = Rs
    
    DataReport1.Sections("Section4").Controls("lblDate").Caption = Date
     
    With DataReport1.Sections("Section1")
        .Controls("txtName").DataField = "Name"
        .Controls("txtPoint").DataField = "Point"
    End With
    
    
    Set DataReport1.DataSource = Rs
    DataReport1.Show vbModal
    
    
    Set Rs = Nothing
    Set Cn = Nothing
End Sub

tnx.