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 strGoodPassword As String
        Dim strSQL As String
        strSQL = String.Empty

        myConnection = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=myMembersdb;User=myUser; Password=myPassword;Option=3;")
        myCommand = New OdbcCommand(strInsert, myConnection)
        strSQL = String.Format("SELECT UserName FROM myTable WHERE (email='{0}');", txtUserName.Text)
        myCommand.CommandText = strSQL
        myCommand.CommandType = CommandType.Text
        myConnection.Open()
        strGoodPassword = CType(myCommand.ExecuteScalar, String)
        If Not strGoodPassword Is Nothing 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(?,?,?,?)"
            myCommand.Parameters.Add("@FirstName", txtFirst.Text)
            myCommand.Parameters.Add("@LastName", txtLast.Text)
            myCommand.Parameters.Add("@Password", txtPassword.Text)
            myCommand.Parameters.Add("@UserName", txtUserName.Text)
            myCommand.ExecuteNonQuery()
            myConnection.Close()

        End If
End Sub