Åpne worddok fra Access-program (Office XP)

Stien til dokumentet skal hentes fra en tabell og blir hentet ved å hente ID til dette dokumentet i denne tabellen. Denne koden har jeg i en egen modul:
Public Function pFindBMark(vDokID As Integer)
    Dim WordObj As Word.Application
    Dim WordDoc As Word.Document
    Dim WordRange As Word.Range
    Dim vDokSti As String, vTabell As String
   
    Dim cnn As ADODB.Connection, rst As New ADODB.Recordset, vSQL As String
   
   
    Set cnn = CurrentProject.Connection
 
   
    vSQL = "Select Sti from DokumentJournaltabell where ID = " _
        & FS(vDokID)
    rst.Open vSQL, cnn
   
   
    If Not rst.BOF Then
        rst.MoveFirst
        vDokSti = Nz(rst!Sti)
    End If
  If vDokSti <> "" Then
        Set WordObj = CreateObject("Word.Application")
        'Set WordDoc = WordObj.Documents.Open _
        '  ("C:\My Documents\Wordtest.doc")
       
        Set WordDoc = WordObj.Documents.Open _
          (vDokSti)
        WordObj.Visible = True
   
        Set WordRange = WordDoc.Goto
    Else
        MsgBox "Har ingen sti til dette dokumentet."
    End If
       

  Set WordObj = Nothing
End Function

Jeg kaller funksjonen for å åpne dokumentet med ID = 123 slik:
pFindBMark(123)

Dette fungerer når jeg kjører Office 2000, men ikke når jeg bruker Office XP.
Da stopper det her:
Set WordDoc = WordObj.Documents.Open _
          (vDokSti)

Kan noen hjelpe meg med dette?