[......]
Dim myReader As OleDbDataReader
myReader = cmd.ExecuteReader()
 
Dim rtbAbstract As New RichTextBox()
Dim intSelectStart As Integer = 0
 
Do While myReader.Read
     intSelectStart = rtbAbstract.Text.Length
     rtbAbstract.Text &= "Nr.:"
     rtbAbstract.Select(intSelectStart, rtbAbstract.Text.Length)
     rtbAbstract.SelectionFont = New Font("Verdana", 12,
FontStyle.Bold)
 
     intSelectStart = rtbAbstract.Text.Length
     rtbAbstract.Text &= myReader("ID")
     rtbAbstract.Select(intSelectStart, rtbAbstract.Text.Length)
     rtbAbstract.SelectionFont = New Font("Verdana", 12,
FontStyle.Regular)
 
     intSelectStart = rtbAbstract.Text.Length
     rtbAbstract.Text &= "Titel:"
     rtbAbstract.Select(intSelectStart, rtbAbstract.Text.Length)
     rtbAbstract.SelectionFont = New Font("Verdana", 12, FontStyle.Bold)
 
     [......]
 
Loop
 
rtbAbstract.SaveFile("C:\MyDocument1.rtf", RichTextBoxStreamType.RichText)
rtbAbstract.Dispose()
cmd.Dispose()
Conn.Close()

________________________
Signaturen sind bl?d