Visual Basic

Private m_GroupSelectedFileType As RadioButton
Private Sub gbFileTypes_CheckedChanged(ByVal sender As Object, _
    ByVal e As EventArgs) Handles _
    optAll.CheckedChanged, _
    optPicOnly.CheckedChanged, _
    optDpxOnly.CheckedChanged

    Dim SourceControl As RadioButton = DirectCast(sender, RadioButton)
    If SourceControl.Checked Then
        m_GroupSelectedFileType = SourceControl
    MsgBox("Another RadioButton checked!")
    End If
End Sub

Private m_gbFileTypesButton As RadioButton

Private Sub gbFileTypes_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles _
    RadioButton1.CheckedChanged, _
    RadioButton2.CheckedChanged, _
    RadioButton3.CheckedChanged

    If Not Me.IsHandleCreated Then Exit Sub

    Dim SourceControl As RadioButton = DirectCast(sender, RadioButton)
    If SourceControl.Checked Then
        m_gbFileTypesButton = SourceControl
        MsgBox("Another radio button has been checked!")
        Select Case SourceControl.Name

        End Select
    End If
End Sub

strQuery = "insert into Student(FirstName,LastName) values(@fname,@lname)"

param1 = New SqlParameter("@fname_name", SqlDbType.VarChar, 100)
param1.Value = txtName1.Text
param2 = New SqlParameter("@lname_name", SqlDbType.VarChar, 100)
param2.Value = txtName2.Text
Conn.Open()
Cmd = New SqlCommand(strQuery, Conn)
Cmd.Parameters.Add(param1)
Cmd.Parameters.Add(param2)
Cmd.ExecuteNonQuery()
Conn.Close()

Dim oCrystalReport As NameofMyReport

NameofMyReport.PrintToPrinter(1, False, 0, 0)