Filtering Crystal Report data based on TextBox value.

Imports System.Data.SqlClient

Public Class Report

    Inherits System.Windows.Forms.Form

Dim r1 As New CrystalReport1

Private Sub btnshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshow.Click

        con.Open()

        str = "select * from student where sid='" & TextBox1.Text & "'"

        com = New SqlCommand(str, con)

        sqlda = New SqlDataAdapter(com)

        ds = New DataSet

        sqlda.Fill(ds, "student")

        con.Close()

        r1.SetDataSource(ds)

        CrystalReportViewer1.ReportSource = r1

        CrystalReportViewer1.RefreshReport()

        CrystalReportViewer1.Refresh()

    End Sub

End Class

Thanks