' 
 
        Dim oStream As IO.StreamWriter
        Dim i As Short
        Dim sfile As String
 
        sfile = "d:\test.txt"
 
        oStream = New IO.StreamWriter(sFile)
 
        For i = 0 To DataGridView1.RowCount - 1
 
            '  oStream.WriteLine(DataGridView1.CurrentRow.Cells(0).Value)
            oStream.WriteLine(DataGridView1.Item(0, i).Value)
            oStream.WriteLine(DataGridView1.Item(1, i).Value)
 
        Next
        oStream.Close()