Well, what should I say, everything me off so I thought I'd just write about it.

Crap, now what to do (actually just testing this LiveWrite/DigiMeta thing)

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque augue. Nulla nec ipsum ut neque semper tincidunt. Duis diam sem, vehicula vel, varius eu, rutrum vitae, lacus. Phasellus laoreet turpis et diam. Quisque nec dui vestibulum mauris placerat lobortis. Ut enim risus, dapibus id, luctus non, egestas eget, lacus. Donec interdum tristique elit. Suspendisse potenti. Vivamus eget augue sed neque aliquet posuere. Aliquam felis. Ut dui nisi, pharetra id, porttitor eu, dignissim ac, velit. Aliquam orci diam, luctus et, sodales eget, faucibus at, tellus. Aenean ullamcorper. Curabitur quam purus, luctus vel, elementum ut, mollis et, risus. In sed turpis sed dui pellentesque tempor. Fusce purus leo, tincidunt eget, vulputate in, sagittis in, arcu. Pellentesque risus. Vivamus tempor venenatis mi.

Nam massa ligula, adipiscing et, congue ac, hendrerit id, mi. Phasellus facilisis, nisl non lobortis auctor, lacus mi tristique est, eget pulvinar erat lectus eget risus. Nunc ac ipsum. Curabitur dui. Etiam suscipit. Sed nulla. Sed commodo nibh. Aliquam nisl lectus, venenatis semper, dictum in, pretium et, enim. Proin ullamcorper odio vel lorem. Sed tincidunt mauris in nunc. Proin lobortis massa eu mauris. Nulla eget quam. Vivamus sed mi. Aliquam dictum enim sed elit. Integer nec turpis vel metus congue tempor. Mauris odio massa, sodales mattis, gravida vel, viverra id, metus. Fusce porttitor velit consequat quam.

Nullam aliquam quam ac libero. Nulla pharetra felis in erat. Integer iaculis. Cras vestibulum vulputate felis. Aliquam elit nisl, egestas porta, commodo vel, blandit nec, neque. Aliquam erat volutpat. Etiam tempus. Nam lobortis iaculis purus. Donec sapien. Vivamus non augue id augue porta ultrices. Vivamus pellentesque molestie dolor. In molestie, magna ut euismod interdum, turpis arcu interdum diam, ac rhoncus lorem libero et nisi. Curabitur aliquet scelerisque nisl. Ut massa diam, mattis eu, suscipit ac, condimentum ac, nisi. In nibh purus, ullamcorper in, molestie vitae, facilisis ac, enim. Proin ut nunc eu urna semper tempor. Maecenas quam est, dignissim vel, bibendum varius, pretium quis, augue.

Vivamus eu orci. Aliquam ac augue. Nam imperdiet posuere ipsum. Integer felis magna, cursus at, pellentesque at, convallis vel, quam. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Cras eleifend nunc. Etiam volutpat semper nulla. Nulla et arcu. Vivamus eget libero. In nec orci ac odio tristique euismod. Duis pulvinar. Nullam fermentum. Pellentesque consectetuer dui. Vivamus ornare porta odio. Proin porta euismod nunc. Nam ac felis. Suspendisse quis risus quis turpis viverra placerat. Pellentesque non lacus. Cras volutpat consectetuer sapien. Aliquam erat volutpat.

Public Function fnSQL_XML(ByVal strSQL As String,
    ByVal strFilename As String) As Boolean
 On Error GoTo ErrorHandler
  Dim Conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  
  'Create and set the connection information.
  Set Conn = CreateObject("ADODB.Connection")
  Conn.ConnectionString = mvarm_ConnectionString
  Conn.Open
  
  'Create and set the record set information
  Set rs = CreateObject("ADODB.Recordset")
  rs.ActiveConnection = Conn
  rs.CursorLocation = adUseClient
  rs.Source = strSQL
  rs.Open strSQL, , adOpenForwardOnly, adLockReadOnly
  rs.Save strFilename, adPersistXML
  
  'A little clean up work
  Conn.Close
  Set rs = Nothing
  Set Conn = Nothing
  fnSQL_XML = True

  Exit Function
ErrorHandler:
  Err.Raise Err.Number, Err.Source, Err.Description
  Set rs = Nothing
  Set Conn = Nothing
  fnSQL_XML = False
End Function