ficheros de texto desde vb.net

[beamm]

Si, ya consigo q me escriba en el fichero pero no el resultado de la consulta,jejej, he puesto esto:

Dim fecha As String = TextBox1.Text
Dim cnn As OleDbConnection
Dim resul2 As OleDbDataReader
Dim objds, objds1, objds2 As New DataSet
Dim Num As New DataTable("Num")

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\impresion.txt", ForWriting, True)
'f.Write("Hola se ha escrito el archivo!")
f.close()

cnn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db")
cnn.Open()

Dim query As String = "SELECT Numclase,DNIUsu,HoraInicio,HoraFin,Motivo FROM Reserva WHERE Fecha =" & fecha & " "
'Response.Write(query)

Dim objCmd As New OleDbCommand(query, cnn)
resul2 = objCmd.ExecuteReader()
Dim apendiza As Boolean = True
Dim flujoEscritura As StreamWriter = New StreamWriter("c:\impresion.txt", apendiza)

flujoEscritura.WriteLine(resul2)

flujoEscritura.Close()

cnn.Close()



Pero lo q me escribe es: System.Data.OleDb.OleDbDataReader