HASTER Export dataset til rtf fil

Dim cn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim xl As Object
    Dim fn As Long
   
    Set xl = CreateObject("Excel.Application")
   
    cn.Open "<Din connectionstring"
   
    Set rs = cn.Execute("select * from testtable")
   
   
    xl.workbooks.Add
    xl.activecell.copyfromrecordset rs
   
    xl.activesheet.usedrange.Select
    xl.activesheet.usedrange.Copy
   
    fn = FreeFile
    Open "c:\test.rtf" For Output As fn
   
    Print #fn, Clipboard.GetText(vbCFRTF)
   
    Close fn
   
    cn.Close
   
    Clipboard.Clear
    xl.activeworkbook.saved = True
    xl.quit
   
    Set xl = Nothing

Tak for det det virkede perfekt...