Datasource di un report (CR)

Dim connectionString As String 
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")
Dim mioReport As New myReport

dadapter.Fill(dtablerep)

mioReport.Load("C:\...\myReport.rpt")
mioReport.SetDataSource(dtablerep)

My.Forms.FormReport.CrystalReportViewer1.ReportSource = mioReport

My.Forms.FormReport.Show()

Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
Dim logOnInfo As CrystalDecisions.Shared.TableLogOnInfo
For Each myTable In mioReport.Database.Tables
    logOnInfo = myTable.LogOnInfo
    logOnInfo.ConnectionInfo.ServerName = ("127.0.0.1")
    logOnInfo.ConnectionInfo.DatabaseName = "miofile.mdb"
    myTable.ApplyLogOnInfo(logOnInfo)
Next