Código:
recorset.Open "SELECT * FROM tabla;", tu-conexion, dinamico, readonly
Do While recorset.EOF = False
Richtextbox1.Text = Richtextbox1.Text & vbnewline & recorset("TU-CAMPO")
recorset.MoveNext
Loop
Esa es la idea, recorrer el recorset pero no con un FOR, sino con un While hasta el final del archivo (es decir el final del recorset).
Vas agregando el campo que queres en el richtextbox, y le das vbnewline para saltarte una linea
Esa es la idea. aplicala como a vos te sirve