Dim objReader As IO.StreamReader
        Dim intcount As Integer
        Dim intcount2 As Integer
 
 
        If IO.File.Exists("f:\surveydata.csv") = True Then
            objReader = IO.File.OpenText("f:\surveydata.csv")
 
 
            Do While objReader.Peek <> -1
                _strRespondend(intcount) = objReader.ReadLine()
                _strMilk(intcount) = objReader.ReadLine()
                intcount += 1
            Loop
 
            For intcount = 0 To (_strRespondend.Length - 1)
                Me.lstSurveyDisplay.Items.Add(_strRespondend(intcount))
 
 
                'Do While objReader.Peek <> -1
                '_strMilk(intcount2) = objReader.ReadLine()
                '
                ' intcount2 += 1
 
                'Loop
            Next
 
            For intcount2 = 0 To (_strMilk.Length - 1)
                Me.lstSurveyDisplay.Items(intcount2).SubItems.Add(_strMilk(intcount2))
 
 
 
            Next
 
 
            objReader.Close()
 
        Else
            MessageBox.Show("The file is not available. Please restart the program when file is available.", "Error")
            Me.Close()
 
        End If
 
    End Sub