以下示例一次从文件中读取一行，然后将每行文本打印到控制台。
创新互联公司服务项目包括屏山网站建设、屏山网站制作、屏山网页制作以及屏山网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，屏山网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到屏山省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Sub ReadTextLinesFromFile()
Dim file As New System.IO.StreamReader("c:test.txt")
Dim oneLine As String
oneLine = file.ReadLine()
While (oneLine "")
Console.WriteLine(oneLine)
oneLine = file.ReadLine()
End While
file.Close()
End Sub
dataset中的数据是以DataTable（表）为单位存储的,DataTable中才是以DataRow（行）为单位存储的。
如果你要从Dataset中读取某一行数据，必须先知道Datatable的名称或者index，然后才可以读取。
例：
dim cDataSet as DataSet = nothing
...
/* DataSet的赋值操作 */
...
if (not cDataSet is nothing) then
for each cRow as DataRow in cDataSet.Tables(0).rows
....
Next
end if
这里循环中的cRow就是对应的cDataSet.Tables(0)里的每一行数据
ListView1.FocusedItem.SubItems.Item(1).Text '获取当前有焦点项的第二个数据
ListView1.SelectedItems.Item(0).SubItems.Item(1).Text '获取当前选择的项的第二个数据。
ListView1.Items(0).SubItems.Item(1).Text '获取索引为0的项的第二个数据。