CrystalReport using vb.net

Imports System.Data.SqlClient
Module Module1
    Public con As New SqlConnection("workstation id=""HOME-6TIW5FOKEY"";packet size=4096;user id=sa;initial catalog=pint" & _
       "u;persist security info=False")
    Public com As SqlCommand
    Public sqlda As SqlDataAdapter
    Public ds As DataSet
    Public str As String
    Public dt As DataTable
    Public dr As DataRow
    Public dv As DataView
    Public dc As DataColumn
    Public bm As BindingManagerBase
    Public flag As Byte
    End Module

Imports System.Data.SqlClient
Public Class Form1
    Inherits System.Windows.Forms.Form

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

        con.Open()
        str = "select * from student"
        com = New SqlCommand(str, con)
        sqlda = New SqlDataAdapter(com)
        ds = New DataSet
        sqlda.Fill(ds, "student")
        'dt = ds.Tables("student")
        txtid.DataBindings.Add("Text", ds, "student.sid")
        txtname.DataBindings.Add("Text", ds, "student.sname")
        txtmarks.DataBindings.Add("Text", ds, "student.smarks")
        txtaddress.DataBindings.Add("Text", ds, "student.saddress")
        txtyear.DataBindings.Add("Text", ds, "student.year")
        bm = Me.BindingContext(ds, "student")
        bm.Position = 0
        con.Close()
    End Sub

Private Sub btnfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfirst.Click
        bm.Position = 0
    End Sub

Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click
        bm.Position += 1
    End Sub

Private Sub btnprevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprevious.Click
        bm.Position -= 1
    End Sub

Private Sub btnlast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlast.Click
        bm.Position = bm.Count – 1
    End Sub

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        txtid.Text = ""
        txtname.Text = ""
        txtaddress.Text = ""
        txtmarks.Text = ""
        txtyear.Text = ""
        flag = 1
        txtid.Focus()
    End Sub

Private Sub btnmodify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmodify.Click
        flag = 2
    End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        Try
            If flag = 1 Then
                con.Open()
str = "insert into student values('" & txtid.Text.Trim & "','" & txtname.Text.Trim & "'," & txtmarks.Text.Trim & ",'" & txtaddress.Text.Trim & "','" & txtyear.Text.Trim & "')"
                com = New SqlCommand(str, con)
                com.ExecuteNonQuery()
                con.Close()
                MsgBox("Records Successfuly Inserted")
                txtid.Clear()
                txtname.Clear()
                txtmarks.Clear()
                txtaddress.Clear()
                txtyear.Clear()
            ElseIf flag = 2 Then

                con.Open()

str = "update student set sname='" & txtname.Text.Trim & "',smarks=" & txtmarks.Text.Trim & ",saddress='" & txtaddress.Text.Trim & "',year='" & txtyear.Text.Trim & "' where sid='" & txtid.Text.Trim & "'"
                com = New SqlCommand(str, con)
                com.ExecuteNonQuery()
                con.Close()
                MsgBox("Records Successfuly Updated")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click

        Try
str = "delete from student where sid='" & txtid.Text.Trim & "'"
            com = New SqlCommand(str, con)
            con.Open()
            com.ExecuteNonQuery()
            MsgBox("Records Successfuly Deleted")
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

Private Sub btnreport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreport.Click

        Dim a As New Report
        a.Show()
        Me.Hide()

    End Sub
End Class


ReportForm Code:-

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

Private Sub btndisplayall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndisplayall.Click

        con.Open()
        str = "select * from student "
        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

Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        con.Open()
  ' str = "select * from student where sname='" & TextBox2.Text & "'"
  str = "select * from student where sname like'" &     TextBox2.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