il crossposting è vietato sul forum.
codice:
http://forum.html.it/forum/showthrea...hreadid=838237
cmq tornando la tuo problema potresti stampare da codice
anzikè utilizzare il dataEnv, modificando la stringa mSQL
puoi ottenere i risultati ke vuoi sul db.
codice:
Dim cn_db As ADODB.Connection
Dim rs_db As ADODB.Recordset
Dim dbfile As String
Dim mSQL As String

' nome database
dbfile = "blob.mdb"

' apre la connessione al database
Set cn_db = New ADODB.Connection
        cn_db.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & dbfile & ";" & _
        "Persist Security Info=False"
        cn_db.Open

' seleziona i dati
    mSQL = "SELECT Nachname,Vorname FROM tblPersonal"

' prende i dati
    Set rs_db = cn_db.Execute(mSQL, , adCmdText)

' manda i dati al report
    Set DataReport2.DataSource = rs_db
    DataReport2.WindowState = vbMaximized
    DataReport2.Show vbModal

' chiude il database
    rs_db.Close
    cn_db.Close
    Set rs_db = Nothing
    Set cn_db = Nothing