VBA/Excel/Access/Word/Access/Recordset Convert

Converting the Recordset to a String

   <source lang="vb">

Sub GetRecords_AsString()

  Dim conn As ADODB.Connection
  Dim rst As ADODB.Recordset
  Dim varRst As Variant
  Dim myFileSystemObject As Object
  Dim myFile As Object
  Set conn = CurrentProject.Connection
  Set rst = New ADODB.Recordset
  rst.Open "SELECT EmployeeId, LastName ,FirstName as FullName FROM Employees", _
     conn, adOpenForwardOnly, adLockReadOnly, adCmdText
  If Not rst.EOF Then
     varRst = rst.GetString(adClipString, , vbTab, vbCrLf)
     Debug.Print varRst
  End If
  Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
     Set myFile = myFileSystemObject.CreateTextFile(CurrentProject.Path & _
         "\RstString.txt", True)
  myFile.WriteLine varRst
  myFile.Close
  Set myFileSystemObject = Nothing
  rst.Close
  Set rst = Nothing
  conn.Close
  Set conn = Nothing

End Sub

</source>