For your second part, try using the format command to set the value:

txtAmount.Text = Format(client!amount, "$###,###,###,###.00")