Do While Not (node Is Nothing)
    rsr2.Open "SELECT * FROM call WHERE nr = " & CLng(Mid(node.Key, 3, Len  ( _
      node.Key) - 2)) & ";"
    word.Selection.TypeText text:="Meldender:" & vbTab & rs.Fields(2).Value
    word.Selection.TypeParagraph
    word.Selection.TypeText text:="Kurztext:" & vbTab & rs.Fields(1).Value
    word.Selection.TypeParagraph
    word.Selection.TypeText text:="Meldung:"
    word.Selection.TypeParagraph
    word.Selection.TypeText text:=rs.Fields(4).Value
    word.Selection.TypeParagraph
    rsr2.Close
    Set node = node.Next
   Loop