reading data

Hi,

1. Reading text file and storing in string.

Imports System
Imports System.IO
Imports System.Collections

Module Module1

    Sub Main()
        Dim objReader As New StreamReader("c:\test.txt")
        Dim sLine As String = ""
        Dim arrText As New ArrayList()

        Do
            sLine = objReader.ReadLine()
            If Not sLine Is Nothing Then
                arrText.Add(sLine)
            End If
        Loop Until sLine Is Nothing
        objReader.Close()

        For Each sLine In arrText
            Console.WriteLine(sLine)
        Next
        Console.ReadLine()
    End Sub

End Module

2. Using access db in c#, you can check this link.
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=820804&SiteID=1

3.Reading data from xml

Sample XML file:
______________
<?xml version="1.0" encoding="UTF-8"?>
<family>
  <name gender="Male">
    <firstname>Tom</firstname>
    <lastname>Smith</lastname>
  </name>
  <name gender="Female">
    <firstname>Dale</firstname>
    <lastname>Smith</lastname>
  </name>
</family>

Imports System.IO
Imports System.Xml
Module ParsingUsingXmlDocument
Sub Main()
  Try
    Dim m_xmld As XmlDocument
    Dim m_nodelist As XmlNodeList
    Dim m_node As XmlNode
    'Create the XML Document
    m_xmld = New XmlDocument()
    'Load the Xml file
    m_xmld.Load("C:\CMS\Personal\family.xml")
    'Get the list of name nodes
    m_nodelist = m_xmld.SelectNodes("/family/name")
    'Loop through the nodes
    For Each m_node In m_nodelist
      'Get the Gender Attribute Value
      Dim genderAttribute = m_node.Attributes.GetNamedItem("gender").Value
      'Get the firstName Element Value
      Dim firstNameValue = m_node.ChildNodes.Item(0).InnerText
      'Get the lastName Element Value
      Dim lastNameValue = m_node.ChildNodes.Item(1).InnerText
      'Write Result to the Console
      Console.Write("Gender: " & genderAttribute _
        & " FirstName: " & firstNameValue & " LastName: " _
        & lastNameValue)
      Console.Write(vbCrLf)
    Next
  Catch errorVariable As Exception
    'Error trapping
    Console.Write(errorVariable.ToString())
  End Try
End Sub
End Module

Thank you,
Bhanu.