Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet1
        Dim t As DataTable = ds.Tables.Add("Items")
        t.Columns.Add("id", Type.GetType("System.Int32"))
        t.Columns.Add("Item", Type.GetType("System.String"))

        Dim r As DataRow
        Dim i As Integer
        For i = 0 To 9
            r = t.NewRow()
            r("id") = i
            r("Item") = "Item" & i
            t.Rows.Add(r)
        Next

        Dim objRpt As New CrystalReport1
        objRpt.SetDataSource(ds.Tables(1))
        CrystalReportViewer1.ReportSource = objRpt
        CrystalReportViewer1.Refresh()
    End Sub
End Class