Erreur de code en vb.net 2010

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

       Dim ajout GestionDataSet.EXAMENRow()

        Enregistrer = GestionDataSet.EXAMEN.NewRow

        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("il y a un des champs qui estTextBox3.Text = "" vide, Veuillez remplir le ou les champs Vides SVP")
        Else
            Try
                Enregistrer.CodeExam = TextBox1.Text
                Enregistrer.NomExam = TextBox2.Text

                GestionDataSet.EXAMEN.Rows.Add(Enregistrer)
                EXAMENTableAdapter.Update(GestionDataSet.EXAMEN)

                MessageBox.Show("Enregistrement réussi", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)

                TextBox1.Text = ""
                TextBox2.Text = ""

            Catch ex As Exception
                MessageBox.Show("Enregistrement Impossible", "Erreur", MessageBoxButtons.OK)

            End Try

        End If

    End Sub
    Private Function Enregistrer() As Object
        Throw New NotImplementedException
    End Function

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If GestionDataSet.EXAMEN.Rows.Count <> 0 Then
            EXAMENBindingSource.RemoveCurrent()
            EXAMENTableAdapter.Update(GestionDataSet.EXAMEN)
            MsgBox("l'enregistrement a été Supprimé", MsgBoxStyle.Information)
            GoTo x
x:
        Else
            MsgBox("Aucun enregistrement a supprimé", MsgBoxStyle.Information)
        End If
    End Sub