double inskrivning :O

hvorfor double inskriver den i databasen :O ?

    Protected Sub btnclick(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn.Click
        Dim con As OleDbConnection
        Dim strins As String
        Dim cmdins As OleDbCommand

        con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\webgts071\Dokumenter\Visual Studio 2005\WebSites\opguge18\App_Data\Gbog.mdb")
        strins = "insert into besvarelser (navn, email, kommentarer, dato) values (@navn, @email, @kommentarer, @dato )"
        cmdins = New OleDbCommand(strins, con)
        cmdins.Parameters.AddWithValue("@navn", txtnavn.Text)
        cmdins.Parameters.AddWithValue("@email", txtemail.Text)
        cmdins.Parameters.AddWithValue("@kommentarer", txtkommentar.Text)
        cmdins.Parameters.AddWithValue("@dato", Now.Date)
        con.Open()
        cmdins.ExecuteNonQuery()
        con.Close()

    End Sub