Converting LINQ Result to String VB.NET - vb.net

Question

I have a module that is correctly pulling a Linq query and writing it to a text file. I just need to know how to convert this to the actual string value. Thanks.
Imports System.IO
Module CheckExists
Public objStreamWriter As StreamWriter
Public Function SimpleQ4()
Dim dc As New DatabaseDataContext
Dim q = _
From a In dc.GetTable(Of tblDealer)() _
Where a.chvDealerName = "Something" _
Select a
Return q.ToString
objStreamWriter = New StreamWriter("path.txt")
objStreamWriter.WriteLine(q)
End Function
End Module
This is returning in myt text file
SELECT [t0].[iD], etc....

Answer 1

Public Function SimpleQ4()
Dim dc As New DatabaseDataContext
Dim q = _
From a In dc.GetTable(Of tblDealer)() _
Where a.chvDealerName = "Something" _
Select New With
{
myFirstColumn = a.columnName,
mySecondColumn = a.anotherColumnName,
...
}
objStreamWriter = New StreamWriter("path.txt")
objStreamWriter.WriteLine(q)
End Function
The LINQ query will not have data until the streamwriter actually starts writing data due to LINQs deferred execution.
Inside the curly braces you are creating an anonymous type. Every column you want a property for would be on the left side of the equal sign. If you don't want to create and map all of the columns use this instead:
From a In dc.GetTable(Of tblDealer)() _
Where a.chvDealerName = "Something" _
Select a
If you need to see the contents of the query, add q.ToList() on the line before creating the streamwriter.

Answer 2

The following code works
Public Sub textFile()
Dim ddc As New DatabaseDataContext
Dim q = _
(From a In ddc.GetTable(Of Table)() _
Where a.Name = "Something" _
Select a.Name).ToList
For Each item In q
objStreamWriter.WriteLine(item)
Next
End Sub