Dim connectionString As String '= "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" + tempFilePath
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\csv\modelnet.mdb"
Dim oledbconnection As OleDbConnection = New OleDbConnection(connectionString)
Dim stringaSQL As String
stringaSQL = "SELECT * FROM Taglie"

Dim dadapter As OleDbDataAdapter = New OleDbDataAdapter(stringaSQL, oledbconnection)
oledbconnection.Open()

Dim dtablerep As DataTable = New DataTable("TabReport")

'Riempio la tabella 
dadapter.Fill(dtablerep)

Dim mioReport As New ReportDocument
mioReport.Load("C:\Documents and Settings\M\Documenti\Visual Studio 2005\Projects\...\myReport.rpt")

My.Forms.FormReport.CrystalReportViewer1.ReportSource = mioReport
mioReport.SetDataSource(dtablerep)
My.Forms.FormReport.Show()