Access - GetObject y CreateObject

Hola,

Tengo un problemilla, la verdad es que no se porque narices a veces me muetra el error "El equipo servidor remoto no existe o no esta disponible" numero de error 462. Es muy curioso porque una vez funciona y la siguiente vez que ejecuto la funcio no . El codigo que utilizo es el siguiente:

If (Tasks.Exists("Microsoft Word") = True) Then
Set objApp = GetObject(, "Word.Application")
Else
Set objApp = CreateObject("Word.Application", "")
End If

Espero que alguien pueda decirme alguna cosa

Gracias,

Jordi

Hola
este problema lo solucciono de la siguiente manera

sub OpenWord()
on error goto err_Open
dim wd as object

set wd = getObject("word.application")
.....
......

Exit_Open:
exit sub
Err_Open:
If err.number = 462 then 'Si no está cargado en memoria, verifique el numero del error
set wd = createobject("word.application")
resume next
end if
end sub