这样写为什么不正确?为什么两个button功能一样?

  Sub enter_click1(ByVal sender As Object, ByVal e As EventArgs)
  Dim strsql1 As String
  strsql1 = "select * from login where u_id='" & u_id.Text & "'"
  Dim cmd As New SqlCommand(strsql1, conn)
  conn.Open()
  Dim dr As SqlDataReader = cmd.ExecuteReader()
  If dr.Read Then
  message.Text = "对不起，您输入的用户名已经被他人使用，请选择其他名字后再试"
  End If
  End Sub
  Sub enter_click(ByVal sender As Object, ByVal e As EventArgs)
  Dim strsql2 As String
  strsql2 = "insert into login(u_id,u_password,u_email,u_question,u_answer,u_sex,u_qq,u_time) values ('" & u_id.Text & "','" & u_password.Text & "','" & u_email.Text & "'," & CInt(u_question.SelectedItem.Value) & ",'" & u_answer.Text & "'," & CInt(u_sex.SelectedItem.Value) & ",'" & u_qq.Text & "','" & Now() & "')"
  Dim cmd2 As New SqlCommand(strsql2, conn)
  Try
  cmd2.ExecuteNonQuery()
  conn.Close()
  Response.Redirect("login.aspx")
  Catch ex As Exception
  message.Text = "没有注册成功"
  End Try
  End Sub

------解决方案--------------------
第一个是查询 是否存在用户

第二个是增加新用户，如果用户已存在 ，给出存在提示
------解决方案--------------------
饿....挺简单的代码..我都能看明白...不过 我弱弱的问下这是 C#吗???
似乎不是.....语法规则 完全不一样..
而且 我最肯定他不是的是因为 没";"
------解决方案--------------------

探讨

第一个是查询 是否存在用户

第二个是增加新用户，如果用户已存在 ，给出存在提示

------解决方案--------------------

探讨

第一个是查询 是否存在用户

第二个是增加新用户，如果用户已存在 ，给出存在提示