Sono riuscito a collegare una tabella .Mdb ad un DataReport senza utilizzare DataEnvironment utilizzando il seguente codice:

Dim DatDb1 As New ADODB.Connection
Dim RecRS As New ADODB.Recordset

Private Sub DataReport_Initialize()
DatDb1.CursorLocation = adUseClient
DatDb1.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\DataBaseMusicale.mdb" & ";Jet OLEDBatabase ;"
RecRS.Open "select * from DataBaseMusicale", DatDb1, adOpenStatic, adLockOptimistic
Set Report1.DataSource = RecRS
Exit Sub
mbDataChanged = False
End Sub

Private Sub DataReport_Terminate()
RecRS.Close
DatDb1.Close
Report1.Hide
End Sub
e mettendo nel DataField delle varie Text del DataReport i nomi dei campi della tabella.

Ciao a tutti


P.S. non sarei mai riuscito senza l'aiuto di gyonny