Query is taking long time

Sql Server 2000

I have written a query.

It is working and it brings correct result.

It is taking some time and I feel that the query could be made faster.

The table vd 400,000 rows and the table chartofacc has 8000 rows.

Here is my query

select  acc_code = x.acc_code
            , acc_name = x.acc_name
            , Data = x.Data
            , UnitName = (Select company_abbr from company where company_code='01')
            , Group5 = x.group5
            , Group7 = x.group7
from
(
select distinct
         a.acc_code
       , acc_name  = (case levels
           when 2 then space(5)  + a.acc_name
           when 3 then space(10) + a.acc_name
           when 4 then space(15) + a.acc_name
           when 5 then space(20) + a.acc_name
            else a.acc_name  end)
      , Data= ( select TOP 1 1 from vd where vd.acc_code=a.acc_code and vd.company_code ='01')
      , Group5 = ( select TOP 1 1 from vd
                  where left(vd.acc_code,5) = left(a.acc_code,5) and vd.company_code ='01'
                  and len(a.acc_code)=5)
      , Group7 = ( select TOP 1 1 from vd
                  where left(vd.acc_code,7) = left(a.acc_code,7) and vd.company_code ='01'
                  and len(a.acc_code)=7)
from chartofacc a
where ( left(a.acc_code,2) in ('41','42','43','44','45','59'))
)x
where ( x.data = 1 or     (  isnull(x.group5,0)+isnull(x.group7,0)>0))