Olá, aí vai :
Set rstSeuRecordSet = New adodb.Recordset
rstSeuRecordSet.Open "SELECT CODIGO, FILIAL, RAZAO TABELASQL ORDER BY CODIGO DESC", cnnConectaBanco, adOpenStatic, adLockReadOnly, adCmdText
Set DataReport1.DataSource = rstSeuRecordSet
DataReport1.Orientation = rptOrientLandscape
Rogério.