Problème 'End Sub' erreur BC30026

Bonjour,

mon logiciel fonctionnait quand je click sur "Démarrer'", je n'avais pas d'erreur, et le je relance visual studio, je reteste le logiciel et il y a une fenêtre qui me dit "des erreurs de build se sont produites. Voulez-vous continuer et exécuter la dernière build réussie ?" Donc moi je fais non mais sa me mais l'ancienne fenêtre de mon logiciel, donc je regarde les erreurs et il me dise qu'il me manque un "End Sub", je regarde dans le code tout ce qui commence par Sub et qu'ils ont bien "End Sub" à la fin, sauf que tout les "Sub" on leur "End Sub" a la fin. Je ne comprends pas. Je vous mais le code.
(ce tout petit) (Me critiquait pas ces justes un logiciel perso donc tout ce qui est faille je m'en fous un peux)

Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Form1


    Dim connexion As MySqlConnection

    Private Sub Button_connexion_Click(sender As Object, e As EventArgs) Handles button_connexion.Click

        If button_connexion.Text = "Connexion" Then

            connexion = New MySqlConnection("SERVER=127.0.0.1;PORT=;DATABASE=stage;UID=" & TextBox_utilisateur.Text & ";PWD=" & TextBox_motdepasse.Text)
            Try
                If connexion.State = ConnectionState.Closed Then
                    connexion.Open()
                    button_connexion.Text = "Deconnexion"
                    TextBox_utilisateur.Text = ""
                    TextBox_motdepasse.Text = ""
                End If
            Catch ex As Exception
                MessageBox.Show("Erreur")
            End Try
        Else
            connexion.Close()
            button_connexion.Text = "Connexion"
            TextBox_utilisateur.Text = ""
            TextBox_motdepasse.Text = ""
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If connexion.State = ConnectionState.Open Then
            Dim cmd As New MySqlCommand("INSERT INTO entreprise (type, nomentreprise, adresse, nompatron, site, mail, numero1, numero2, numero3) VALUES(@type, @nomentreprise, @adresse, @nompatron, @site, @mail, @numero1, @numero2, @numero3)", connexion)
            cmd.Parameters.AddWithValue("@type", TextBox_type.Text)
            cmd.Parameters.AddWithValue("@nomentreprise", TextBox_nomentreprise.Text)
            cmd.Parameters.AddWithValue("@adresse", TextBox_adresse.Text)
            cmd.Parameters.AddWithValue("@nompatron", TextBox_nompatron.Text)
            cmd.Parameters.AddWithValue("@site", TextBox_site.Text)
            cmd.Parameters.AddWithValue("@mail", TextBox_mail.Text)
            cmd.Parameters.AddWithValue("@numero1", TextBox_numero1.Text)
            cmd.Parameters.AddWithValue("@numero2", TextBox_numero2.Text)
            cmd.Parameters.AddWithValue("@numero3", TextBox_numero3.Text)
            cmd.ExecuteNonQuery()
            TextBox_type.Clear()
            TextBox_nomentreprise.Clear()
            TextBox_adresse.Clear()
            TextBox_nompatron.Clear()
            TextBox_site.Clear()
            TextBox_mail.Clear()
            TextBox_numero1.Clear()
            TextBox_numero2.Clear()
            TextBox_numero3.Clear()
        Else
            MessageBox.Show("Erreur")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If connexion.State = ConnectionState.Open Then
            ListView1.Items.Clear()



            Dim cmd As New MySqlCommand("SELECT * FROM entreprise", connexion)
            Using L As MySqlDataReader = cmd.ExecuteReader()
                While L.Read()

                    Dim Element As New ListViewItem
                    Dim id As String = L("id")
                    Dim type As String = L("type")
                    Dim nomentreprise As String = L("nomentreprise")
                    Dim adresse As String = L("adresse")
                    Dim nompatron As String = L("nompatron")
                    Dim site As String = L("site")
                    Dim mail As String = L("mail")
                    Dim numero1 As String = L("numero1")
                    Dim numero2 As String = L("numero2")
                    Dim numero3 As String = L("numero3")
                    Element.SubItems.Add(id)
                    Element.SubItems.Add(type)
                    Element.SubItems.Add(nomentreprise)
                    Element.SubItems.Add(adresse)
                    Element.SubItems.Add(nompatron)
                    Element.SubItems.Add(site)
                    Element.SubItems.Add(mail)
                    Element.SubItems.Add(numero1)
                    Element.SubItems.Add(numero2)
                    Element.SubItems.Add(numero3)
                    ListView1.Items.Add(Element)
                End While
            End Using
        End If
    End Sub
End Class

Et les codes d'erreurs :

error BC30026: 'End Sub' attendu.
error BC30289: Cette instruction ne peut pas apparaître dans le corps d'une méthode. Elle est interprétée comme la fin de la méthode.

Merci pour vautre aide et vos réponses.