Prueba a modificar el bucle por esto:
Código vb:
Ver originalWhile (reader.Read())
Me.TextBox1.Text = Me.TextBox1.Text + reader.GetValue(0).ToString + vbTab + reader.GetValue(3).ToString + vbTab + reader.GetValue(1).ToString + vbTab + reader.GetValue(2).ToString + vbCrLf
End While