Langsom ved inlæsning af xml i dataset

Jeg har en xmlfil med omkring 6000 poster (afstemning). Jeg har lagt mærke til at siden bliver langsommere og langsommere efterhånden som antallet af poster stiger.

Jeg vil høre om der er en hurtigere måde at læses et xml dokument end nedenstående?

    public function stemtotal(stemtid as string) as integer
        Dim filnavn as string
        Dim udtryk as string

        try
            filnavn = ConfigurationSettings.AppSettings("server") & ConfigurationSettings.AppSettings("write") & "afstemninggivet/" & stemtid & ".xml"
        catch t as exception
            return 0
            exit function   
        end try
           
        dim filInfo as new fileinfo(filnavn)
        if NOT filinfo.exists() then
            return 0
            exit function   
        end if

        Dim ds as new DataSet()
        Dim Dt As DataTable
        Dim Dr As DataRow()       

        try
            ds.ReadXml(filnavn)
        catch t as exception
            return 0
            exit function   
        end try

        Dt = ds.Tables(0)
        Dr = Dt.Select("afid<>'0'")   
        return cint(Dr.length)
    end function