Dim FStreamWrite As New FileStream("g:\g.dif", FileMode.Create, _
    FileAccess.ReadWrite)
        Dim SWriters As New StreamWriter(FStreamWrite)
        Dim dt As DataTable = AvvDataSet.Tables("avv")
        For Each cRow As DataRow In dt.Rows
            For Each cCol As DataColumn In dt.Columns
                SWriters.Write(cRow(cCol.Ordinal) & Chr(9))
            Next
            SWriters.WriteLine("")
        Next
        SWriters.Close()
        FStreamWrite.Close()