ออกรายงานจากฐานข้อมูลที่เป็น Textfile ??????????????

<%@ Import Namespace="System.IO"%>
<%@ Page Language="VB" %>
<script runat="server">
    Sub Page_Load(sender As Object, e As EventArgs)
        Dim StrWer As StreamWriter
        Try
            StrWer = File.CreateText(Server.MapPath("MyFiles/") & "thaicreate.txt")
            StrWer.Write("www.ThaiCreate.Com")
			StrWer.Write("Version 2009")
			StrWer.WriteLine("")
            StrWer.WriteLine("www.ThaiCreate.Com")
			StrWer.WriteLine("Version 2009")
            StrWer.Close()
			Me.lblStatus.Text = "Files Writed."
        Catch ex As Exception
            Me.lblStatus.Text = "Write failed. ("& ex.Message &")"
        End Try
    End Sub
</script>