¿Como hacer consulta a una tabla con tableadapters?

[josiasdaniel_]

cambie la funcion ManipularTablas con la intensión de poder escribir la consulta en un archivo pero no logro escribir los resgistros, el codigo de la función quedó asi el resto es igual:



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


Los MsgBox son para saber si paso por la linea sin errores. Y por cierto ya el error de identificación ya no me lo da gracias a Dios..