ficheros de texto desde vb.net

[beamm]

Tb he probado este otro codigo y tampoko me escribe, por favor que alguien me ayude

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 As New DataSet
Dim fe As New DataTable("fe")
Dim strconexion As String
Dim objconexion As OleDbConnection
Dim objcomando As OleDbDataAdapter

Dim nc As Integer
Dim hi As String
Dim hf As String
Dim m As String


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





strconexion = "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"

objconexion = New OleDbConnection(strconexion)
objconexion.Open()
objcomando = New OleDbDataAdapter("select NumClase,HoraInicio,HoraFin,Motivo from Reserva where Fecha=" & fecha & "", objconexion)
objcomando.Fill(objds, "fe")
Dim fila As DataRow
For Each fila In objds.Tables("fe").Rows
hi = CStr(fila("hi"))
hf = CStr(fila("hf"))
m = CStr(fila("m"))
f.writeline(hi & " " & hf & " - " & m)

Next

f.close()


End Sub