Hola me llamo Josias y soy de Maracaibo Venezuela, estoy tratando de imprimir los registros de un tableAdapter de visualBasic.Net en un archivo de texto (*.txt) pero todavia no me sale. El codigo es el siguiente, agradesco cualquier aporte...


'Selecciono el tipo de aviso
    Public Enum tipoAviso

        Desplegado

        Clasificado

    End Enum

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdBtn_Clasificado.CheckedChanged
        Dim ClasificadoData As New DalaiTableAdapters.tbTarifaClassTableAdapter
        If RdBtn_Clasificado.Checked Then

            banderaTipoAviso = tipoAviso.Clasificado
            RdBtn_Desplegado.Enabled = False
            RdBtn_Clasificado.Enabled = False

            'cargo el comboBox de Tarifa a Copiar
            cmBoxTarCop.DataSource = ClasificadoData.GetData
            cmBoxTarCop.DisplayMember = "ctc_nombre"
            cmBoxTarCop.ValueMember = "ctc_codigo"

            'cargo el comboBox de Tarifa Destino
            cmBoxTarDes.DataSource = ClasificadoData.GetData
            cmBoxTarDes.DisplayMember = "ctc_nombre"
            cmBoxTarDes.ValueMember = "ctc_codigo"

        End If
    End Sub

    Public Sub ManipularTablas(ByVal codigoOrigen As String, ByVal codigoDestino As String, ByVal tipo As Integer)
        MsgBox("ORIGEN " + codigoOrigen.ToString + " Destino " + codigoDestino.ToString + " tipo " + tipo.ToString)
        Select Case (tipo)
            Case (tipoAviso.Desplegado)
                MsgBox("tipo desplegado =>")
                Dim adapter As New DalaiTableAdapters.tbRangoDespDetTableAdapter
                Dim data As Dalai.tbRangoDespDetDataTable = adapter.GetDataBycrd_codigo

                Dim fs As New FileStream("C:\Documents and Settings\jgonzalez\Escritorio\cadenas2.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)
                Dim archivo As New StreamWriter(fs)
                archivo.Write(data.Rows.ToString)
                archivo.Flush()
                archivo.Close()
                Console.ReadLine()
                MsgBox("Termine")
           




            Case (tipoAviso.Clasificado)
                MsgBox("tipo clasificado =>")
        End Select



    End Sub