ASP.NET

Private Sub lblRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblRegister.Click
    Dim myConnection As OdbcConnection
    Dim myCommand As OdbcCommand
    Dim strInsert As String
    Dim strSQL As String
    strSQL = String.Empty

    myConnection = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=myServer;Database=myDB;User=myUser; Password=myPW;Option=3;")
    strSQL = String.Format("SELECT UserName FROM myTable WHERE (UserName='{0}');", txtUserName.Text)
    myCommand = New OdbcCommand(strSQL, myConnection)
    myCommand.CommandType = CommandType.Text
    myConnection.Open()

    Dim result As Integer = myCommand.ExecuteNonQuery()
    If result > 0 Then
        lblMessage.Text = "That user name is already taken!"
        lblMessage.Text &= "  Please choose another user name."
    Else

        strInsert = "INSERT into myTable (FirstName,LastName,Password,UserName)values (?,?,?,?)"
        Dim myCommand1 As OdbcCommand = New OdbcCommand(strInsert, myConnection)
        myCommand1.CommandType = CommandType.Text
        myCommand1.Parameters.Add("@FirstName", txtFirst.Text)
        myCommand1.Parameters.Add("@LastName", txtLast.Text)
        myCommand1.Parameters.Add("@Password", txtPassword.Text)
        myCommand1.Parameters.Add("@UserName", txtUserName.Text)
        Dim result1 As Integer = myCommand1.ExecuteNonQuery()

        myConnection.Close()

    End If

    txtFirst.Text = ""
    txtLast.Text = ""
    txtUserName.Text = ""
    txtPassword.Text = ""
End Sub