With txtRichTextBox
 
  ' Recordset-Objekt erstellen
  sSQL = "SELECT BuchID, Bemerkung FROM Bücher ORDER BY BuchID"
  oRs.CursorLocation = adUseClient
  oRs.Open sSQL, oConn, adOpenDynamic, adLockOptimistic
 
  If oRs.RecordCount > 0 Then
    While Not oRs.EOF
      .TextRTF = oRs.Fields("Bemerkung")
       Debug.Print oRs("Bemerkung")
       oRs.MoveNext
    Wend
  End If
 
  ' Recordset zerstören
  oRs.Close
  Set oRs = Nothing
 
End With