Grazie per la risposta.
Mi consigli qualcos'altro per fare stampe al posto di Crystal Report?
Comunque ti metto il codice che sto usando


Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Private Sub rt_stampa()
Dim Rpt As New ReportDocument
Dim subRpt As New ReportDocument
Dim DOp As New DiskFileDestinationOptions


Try
Rpt.Load("C:\fattura.rpt")
Dim rptConn As ConnectionInfo
rptConn = New ConnectionInfo
rptConn.ServerName = "C:\fattura.mdb"
For Each t As Table In Rpt.Database.Tables
t.LogOnInfo.ConnectionInfo = rptConn
t.ApplyLogOnInfo(t.LogOnInfo)
Next


For Each s As ReportDocument In Rpt.Subreports
For Each t As Table In s.Database.Tables
t.LogOnInfo.ConnectionInfo = rptConn
t.ApplyLogOnInfo(t.LogOnInfo)
Next
Next


frmCrystalReport.Show()
frmCrystalReport.CrystalReportViewer1.ReportSource = Rpt
frmCrystalReport.CrystalReportViewer1.RefreshRepor t()


Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub