 <p>It's an ugly solution but you may try this ..</p> <pre><code>While DR.Read txtData.Text = txtData.Text &amp; DR.Item("CostumerOrder") &amp; Space(10) &amp; DR.Item("OrderPrice") &amp; vbCrLf Application.DoEvents() End While </code></pre>