title: change format number msgbox
body: <p>please help me to change a format number for this msgbox
  i need the format number like standard for example : 3,456.79</p>
  <pre><code>Set db = CurrentDb
  Dim rs As DAO.Recordset
  Dim qdf As DAO.QueryDef
  Set qdf = db.QueryDefs(&quot;1&quot;)
  Set rs = qdf.OpenRecordset
  Set rs = db.OpenRecordset(&quot;SELECT [amount] FROM qicard;&quot;)
  MsgBox &quot;total salary : &quot; &amp; DSum(&quot;amount&quot;, &quot;[1]&quot;), vbQuestion, &quot;salary&quot;```
  </code></pre>