Sub submitReview(ByVal sender As Object, ByVal e As EventArgs)


        Dim myConnection As New SqlConnection(Conn)

        '2. Create the command object, passing in the SQL string
        Dim strSQL As String = "SELECT Student.FirstName "
        strSQL += "From Groups, GroupStudent, Subject, Student "
        strSQL += "WHERE ((Groups.groupID = GroupStudent.groupID) "
        strSQL += "AND (Student.SubjectCodeID = Subject.SubjectCodeID) "
        strSQL += "AND (GroupStudent.StudentNo = Student.StudentNo) "
        strSQL += "AND (Groups.SubjectCodeID = Student.SubjectCodeID) "
        strSQL += "AND (Subject.SubjectCodeID = " & Session("StudentSubjectCodeID") & ")"
        strSQL += "AND (Student.SubjectCodeID = " & Session("StudentSubjectCodeID") & ")"
        strSQL += "AND (Groups.GroupID = " & "1" & ")) "




        Dim myCommand As New SqlCommand(strSQL, myConnection)

        '3. Create the DataAdapter
        Dim myDA As New SqlDataAdapter()
        myDA.SelectCommand = myCommand

        '4. Populate the DataSet
        Dim myDS As New DataSet()
        myDA.Fill(myDS)

        Count = myDS.Tables(0).Rows.Count

        Dim queryString2 As String = "SELECT * FROM Result"
        myCommand.CommandText = queryString2

        myDA.SelectCommand = myCommand
        Dim dataSet2 As DataSet = New DataSet

        myDA.Fill(dataSet2)
        Dim usernamecheck As Boolean = False




        Dim item As DataGridItem = dg1.Items(Count - 1)
        'Check for repeated username registration
        For i As Integer = 0 To Count - 1

            mark = DirectCast(item.FindControl("sMark"), TextBox).Text().Trim()
            com = DirectCast(item.FindControl("sCommnet"), TextBox).Text().Trim()

            'Dim firstBCTextBox As TextBox = CType(e.item.Cells(1).Controls(0), TextBox)
            'Dim firstTextBoxValue As String = firstBCTextBox.Text

            'Dim secondBCTextBox As TextBox = CType(e.Item.Cells(2).Controls(0), TextBox)
            'Dim secondTextBoxValue As String = secondBCTextBox.Text


            Dim queryString As String = "Insert Into Result (Comment,Mark,StudentA,StudentB,GroupStudentID,ReportID)" & _
                   " VALUES('" & com & "', '" & mark & "', '" & "9" & "', '" & "9" & "', '" & "1" & "', '" & "3" & "')"


            myCommand.CommandText = queryString
            myCommand.Connection = myConnection

            ' Open the connection, execute the command, and close the connection.

            myConnection.Open()
            myCommand.ExecuteNonQuery()
            myConnection.Close()



        Next
        Server.Transfer("Student_ConfirmSubmitReview.aspx")

    End Sub

<asp:DataGrid ID="dg1" runat="server">
         <HeaderStyle font-size="10pt" horizontalalign="Center" forecolor="White" backcolor="Black"></HeaderStyle>

                     <Columns>
                            <asp:TemplateColumn HeaderText="Student Name">
                                           <ItemTemplate>
                                                <asp:Label id="sName" runat="server" text='<%# DataBinder.Eval(Container.DataItem, "FirstName")  %>' /> 
                                           </ItemTemplate>
                                         </asp:TemplateColumn>      
                                         <asp:TemplateColumn HeaderText="Mark">
                                           <ItemTemplate>
                                                <asp:TextBox ID="sMark" runat="server"></asp:TextBox>
                                           </ItemTemplate>
                                         </asp:TemplateColumn> 
                                         <asp:TemplateColumn HeaderText="Comment">
                                           <ItemTemplate>
                                                 <asp:TextBox ID="sComment" runat="server" Rows="3" Columns="3" ></asp:TextBox>

                                           </ItemTemplate>
                                         </asp:TemplateColumn>

                      </Columns>

      </asp:DataGrid>          

                        <asp:Button runat="server" ID="subButton" Text="Submit" OnClick="submitReview" />

<asp:TextBox ID="sMark" runat="server"></asp:TextBox>
<asp:TextBox ID="sComment" runat="server" Rows="3" Columns="3" ></asp:TextBox>