Utilizar el executereader

[sAnto0s]

Despues de muchos intento me encontre que tan solo con poner lo sig.
Do
'asignar mi valor en la cja de texto
txtObservaciones.Text = txtObservaciones.Text & vbNewLine & ler(4).ToString.Trim
Loop While ler.Read

y listo se agregaran todos los resultados que se generen en tu consulta.