Private Sub btnSumit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSumit.Click
        Dim intId As Integer
        Dim strAnswer As String = comboCountry.Text
        If strAnswer = strCountry Then
            lblAnswer.Text = "Correct!!"
            intPassCount += 1
        Else
            lblAnswer.Text = "Wrong Answer!! Hard Luck!!"

        End If

        If intCount >= 5 Then
            lblAnswer.Text = "Your Quiz is done!!"
            btnNext.Enabled = False
            comboCountry.Enabled = False
            If intPassCount >= 3 Then
                boolPass = True
                MessageBox.Show("Congratulations, You have Passed the Quiz!!, Your Score is " _
                                + intPassCount.ToString() + " out of 5")
                lblPass.Text = "Passed"
            Else
                boolPass = False
                MessageBox.Show("Unfortunately, You have Failed the Quiz!!, Your Score is " _
                                + intPassCount.ToString() + " out of 5")
                lblPass.Text = "Failed"

            End If
        Else
            btnNext.Enabled = True

        End If
        If intCount >= 5 Then
            Try
                Integer.TryParse(InputBox("Please Enter Your ID"), intId)
                Dim connStr As New OleDb.OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source = StudentsGrades.mdb")
                connStr.Open()
                Dim sqlStr As String = ("INSERT INTO StudentsInfo(Score, Pass)VALUES('" & intPassCount.ToString & "','" _
                                        & lblPass.Text & "') SELECT Score, Pass FROM(StudentsInfo)WHERE ID = ' " & intId.ToString & "';")

                Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr)
                dataAdapter.Fill(dt)
                dataAdapter.Dispose()

                MessageBox.Show("The information has been added successfuly")
                connStr.Close()
            Catch ex As Exception
                MessageBox.Show("The information already here!!")
            End Try
        End If
        btnSumit.Enabled = False



    End Sub