Using sr As StreamReader = New StreamReader(databaseFile, Encoding.Default)
            Do
                Try
                    Dim temp As String = sr.ReadLine
                    ...
                Catch ex As Exception
                    Exit Do
                End Try
            Loop
            sr.Close()
        End Using