Dummies, aproveitando do seu conhecimento, tem como gerar um relatório em ActiveReport usando a instrução sql que você me passou. O resultado da pesquisa é exibido em um flexGrid e precisaria passar para um relatório. Abaixo o trecho do código que uso para gerara o relatório no active (este código já funciona)

Dim cn As New ADODB.Connection

    Dim rst As New ADODB.Recordset

    Dim sPath As String

    sPath = App.path & "Banco1.mdb"

    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath

    cn.Open

    Set rst.ActiveConnection = cn

    rst.CursorLocation = adUseClient

   rst.Open "select * from tbEletronico where Origem like '%" & reg & "%'"

    rst.ActiveConnection = Nothing

    Dim rpt As New actEletro

    Set rpt = New actEletro

    rpt.DataControl1.Recordset = rst