Crear servicio windows para sharepoint

Muy buenas,
Tengo un problema al crear un servicio con visual studio 2005.
El servicio funciona correctamente hasta que intento acceder a datos de
sharepoint. Entonces me da un error de acceso : Acceso denegado. (Excepción
de HRESULT: 0x80070005 (E_ACCESSDENIED))
He rovado el codigo en una aplicacion normal y funciona, solo falla en el
servicio.
El codigo:
Dim nuevositio As SPSite
Dim sitiocreado As SPWeb
Dim ColeccionDeListas As SPListCollection
nuevositio = New
SPSite("http://igutierrez:
cpd:35483/sitios/CreadoEnConsola")
sitiocreado = nuevositio.OpenWeb()
hasta aqui funciona correctamente pero falla al hacer cosas como:
PrintLine(1, sitiocreado.Title)
Cuando quiero ver o modificar datos no funciona.
Si alguien save porque porfavor es urgente
muchas gracias