word.application mailmerge fjerne linie

I dette kode vil jeg gerne kunne fjerne f.eks field(2)
Hvis jeg bruger .delete så fjerner den bare feltet uden at fjerne linien, så der kommer et hul. (linieskift) hvordan fjerner jeg en linie?


Dim w As New Word.Application
        Dim d As Word.Document

        Dim a As Integer

        'For a = 1 To counter
        sql = "select * from " & temp_tabel_name & ""
        rs = connsettings.Execute(sql)
        While Not rs.EOF


            d = w.Documents.Open(config_tempfolder & "\" & rs("temp_id").Value & ".doc")
            w.Visible = False

            d.Fields.Item(1).Result.Text = "linie1"
            d.Fields.Item(2).Result.Text = "linie2"
            d.Fields.Item(3).Result.Text = "linie3"
            d.Save()
            d.Close()
            pb2.PerformStep()

            rs.MoveNext()
        End While