<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
  <font color=#000099>Dim</font> Db <font color=#000099>As</font> Database
  <font color=#000099>Dim</font> Rs <font color=#000099>As</font> Recordset
 
  <font color=green>' Datenbank öffnen</font>
  <font color=#000099>Set</font> Db = DBEngine.OpenDatabase("DeineMDB.mdb")
 
  <font color=green>' Tabelle öffnen</font>
  <font color=#000099>Set</font> Rs = Db.OpenRecordset("DeineTabelle")
 
  <font color=green>' Starttext in RTF-TextBox schreiben und Darstellung 
  ' abschalten,</font>
  <font color=green>' um ein Flackern zu vermeiden</font>
  RTFBox.Text = "Hier kommt der Starttext hin" & vbCrLf
  RTFBox.Visible = <font color=#000099>False</font>
 
  <font color=green>' Tabelle von 1...n durchlaufen</font>
  <font color=#000099>If</font> Rs.RecordCount > 0 <font _
    color=#000099>Then</font>
    <font color=#000099>While</font> <font color=#000099>Not</font> Rs.EOF
      <font color=#000099>With</font> RTFBox
        .Text = .Text & "0103000 " & dbFeld(Rs("Nr")) & vbCrLf
        .Text = .Text & "0183101 " & dbFeld(Rs("Name")) & vbCrLf
        .Text = .Text & "??????? " & dbFeld(Rs("Vorname")) & vbCrLf
        .Text = .Text & "??????? " & dbFeld(Rs("Strasse")) & vbCrLf
        .Text = .Text & "??????? " & dbFeld(Rs("Plz")) & vbCrLf
        .Text = .Text & "??????? " & dbFeld(Rs("Ort")) & vbCrLf
        .Text = .Text & "??????? " & dbFeld(Rs("Telefon")) & vbCrLf
        .Text = .Text & "??????? " & dbFeld(Rs("Fax")) & vbCrLf
      <font color=#000099>End</font> <font color=#000099>With</font>
 
      <font color=green>' auf zum nächsten Datensatz</font>
      Rs.MoveNext
    <font color=#000099>Wend</font>
 
    <font color=green>' End-Text</font>
    RTFBox.Text = "Hier kommt der Endtext hin" & vbCrLf
 
    <font color=green>' RTF-TextBox: Darstellung einschalten</font>
    <font color=green>' und Inhalt in Datei speichern</font>
    RTFBox.Visible = <font color=#000099>True</font>
    RTFBox.SaveFile "DeineDatei.txt", 1
  <font color=#000099>End</font> <font color=#000099>If</font>
 
  <font color=green>' Tabelle+Datenbank schliessen</font>
  Rs.<font color=#000099>Close</font>
  Db.<font color=#000099>Close</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
<font color=green>' Prüft, ob das Datenbankfeld einen Inhalt halt,</font>
<font color=green>' um so den Fehler 94 (Invalid Use Of Null) zu umgehen</font>
<font color=#000099>Private</font> <font color=#000099>Function</font> dbFeld( _
  vFeld <font color=#000099>As</font> Variant) <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>If</font> IsNull(vFeld) <font color=#000099>Then</font>
    dbFeld = ""
  <font color=#000099>Else</font>
    dbFeld = vFeld
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Function</font></code>