Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ds As New DataSet1()  'Dataset ADO.net

        Dim dsr As DataSet1.DataTable1Row

        For i As Integer = 0 To 20 Step 1
            dsr = ds.Tables(0).Rows.Add()
            dsr.Item(0) = "12345-C"
            dsr.Item(1) = "Articolo x"
            dsr.Item(2) = "25"
        Next

        Dim myreport As New CrystalReport1 
        myreport.SetDataSource(ds.Tables(0)) 
        myreport.SetParameterValue("param", "TITOLO") 
        CrystalReportViewer1.ReportSource = myreport 

    End Sub

End Class