Gracias a todos por los consejos recibidos, ya he encontrado las instrucciones necesarias para hacer los textos en colores... es mas facil !!!

Tengamos un Form con un RichTextBox (llamado RTB). Supongamos tambien que tenemos una base de datos con cuatro campos:FECHA, CUENTA, HABER_DEBE e IMPORTE.

Cuando habrimos el Form este imprimira los datos correspondiente al dia de ayer.

Sub Form_load()
Dim dBase as Database
Dim rTabla as RecordSet
Dim FechaAyer as Date
Set dBase=OpenDatabase(CURDIR()+"\Contabilidad.mdb")
FechaAyer=DATE(Daye()-1)
Set rTabla=dBase.OpenRecordset("SELECT * FROM ASIENTOS WHERE _ FECHA= '" & Format(FechaAyer,"dd/mm/yy") & "'")
While not rTabla.eof
  RTB.SelColor=vbBlue
  RTB.SelText=rTabla("FECHA")
  RTB.SelColor=vbBlack
  RTB.SelText=rTabla("CUENTA")
  IF rTabla("HABER_DEBE")="D" Then
     RTB.SelColor=vbGreen
     RTB.SelText=rTabla("IMPORTE")
  Else
     RTB.SelColor=vbRed
     RTB.SelText="-" & rTabla("IMPORTE")
     RTB.SelText=vbCrLf
  Endif
  rTabla.MoveNext
Wend

De esta forma veremos que aparece las fechas en color Azul, las cuentas en color negro y los importes en verde si es al debe o en rojo si es al haber.
Para cambiar el tipo de letra solo hay que usar RTB.SelFont.
Para hacer un salto de linea hay que usar vbCrLf.
Seguro que a mas de uno le servirán estas instrucciones.

López & López Software, S.L.

lsoft@leader.es
kurro@leader.es