[Resolvido] Duplicidade Na Gravacao dos Dados

Boa Tarde Amigos

Estou utilizando ASP.NET 2.0 e tenho uma rotina de atualizacao de dados, onde a rotina esta sendo executada 2 vezes.

Eu clico no botao enviar (para salvar os dados) e dai eles sao gravados.Quando chego ao End Sub a execucao do programa retorna para o evendo Click desse botao e executa tudo de novo.

Sera que existe alguma propriedade que eu deva configurar?

Postei a rotina abaixo.

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Sql As String
Dim cmd As SqlCommand
Dim conexao As SqlConnection
Dim Erro As Integer
Dim IdCadastro As Integer = 0

conexao = New SqlConnection(ConfigurationManager.ConnectionStrings("timesheetConnectionString").ConnectionString)

IdCadastro = CboModalidade.SelectedIndex

If IdUsuario = 0 Then

 Sql = "INSERT INTO USERS (USER_NOME,USER_ENDERECO,USER_BAIRRO) "
 Sql = Sql & "VALUES ('" & txtNome.Text & "','"
 Sql = Sql & txtEndereco.Text & "','"
 Sql = Sql & txtBairro.Text & "')"
 Else
 Sql = "UPDATE USERS "
 Sql += " SET USER_NOME='" & txtNome.Text & "',"
 Sql += " USER_ENDERECO='" & txtEndereco.Text & "',"
 Sql += " USER_BAIRRO ='" & txtBairro.Text.Trim & "',"
 Sql += " WHERE USER_ID=" & IdUsuario
 End If

 conexao.Open()

 cmd = New SqlCommand(Sql, conexao)
 cmd.ExecuteNonQuery()
 Erro = cmd.ExecuteNonQuery()

 If Erro > 0 Then
 lblMensagem.Visible = True
 lblMensagem.Text = "Dados Atualizados com Sucesso!"
 End If

 Try

 'Determine a query que seleciona o identificador do registro inserido

 cmd = New SqlCommand("SELECT @@IDENTITY", conexao)

 cmd.CommandType = CommandType.Text

 'obtem o codigo do pedido que foi incluido na tabela Pedidos

 IdCadastro = cmd.ExecuteScalar()

 Catch ex As Exception

 'lblMensagem.Text = "Erro ao acessar os dados : " & vbCrLf & ex.Message & vbCrLf & ex.InnerException.ToString

 Finally
 ' xxxxxxxxxxxxxx
 End Try

 'cmdRel = New SqlCommand(Sql, conexao)
 'cmdRel.ExecuteNonQuery()

 'conexao.Close()
	End Sub

Muito Obrigado