Código:
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
' Abre una conexión.
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
' Abre un conjunto de resultados.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.ActiveConnection = cnn1
rstEmployees.Source = "tu consulta"
rstEmployees.Open
Set DataReport1.DataSource = rstEmployees
DataReport1.Show
prometeo_1,
esto es un ejemplo modificado sacado del MSDN, tienes que adaptarlo, si cierras el recordset se van los datos del informe, también tienes que agregar las referencias de ADO.
Si tienes algún problema, escribe y como dice rafapaskual ten cuidado con las rutas absolutas...
Saludos
Pablo