Se devi prelevare un valore in un campo del DB e trasferirlo nel DataReport potresti provare in questo modo:
codice:
Dopo la connessione con Il DB e l'impostazione della SELECT:
Set TuoDR.DataSource = rs
' Inserisce i dati nel DataReport:
With TuoDR.Sections("Section1")
     .Controls("Txt1").DataField = "TuoCampoDB"
....
End With