ficheros de texto desde vb.net

[beamm]

Si, eso intento pero por mas q lo intento no me sale, ahora tengo este código:

Protected Sub aulasLibres_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aulasLibres.Click
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)
While resul2.Read()

flujoEscritura.WriteLine(resul2.GetValue(0).ToStri ng())

End While


flujoEscritura.Close()

cnn.Close()

End Sub



Pero no me imprime nada en el txt. Yo creo que es algun problema de q mi datatable solo rekoge un campo y no todos los que le pido o algo así, pero esk no tengo ni idea... Espero que puedas ayudarme con esto ...perdona las molestias