ficheros de texto desde vb.net

[beamm]

Hola tengo que crear un .txt y escribir en él los resultados de una consulta, he konseguido krear el txt pero no me escribe nada. Alguien me puede decir como lo korrijo?

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!")


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 g As String = String.Empty
While resul2.Read()
g = resul2.GetString(0)
f.Write(g)

End While


f.close()


End Sub