Problemer med filesearch

Hejsa
Jeg har et problem med at bruge application.filesearch i en access97 db some korer paa win2000.

Jeg faar invalid procedure paa filetype og/eller filename i flg kode:

Sub FillImageTable(Sampler As String)

Dim i As Integer, x As Integer, y As Integer
Dim Cruise(4) As String
Dim XRange As Integer
Dim fs As Variant

Set fs = Application.FileSearch


Cruise(1) = "D258"
Cruise(2) = "D262"
Cruise(3) = "D264"
Cruise(4) = "D267"

If Sampler = "AR" Then
XRange = 3
ElseIf Sampler = "DM" Then
XRange = 3
ElseIf Sampler = "OS" Then
XRange = 1
End If

For i = 1 To 4
    For x = 1 To XRange
        With fs
            .NewSearch
            .LookIn = "c:\marprod\webatlas\images\" & Cruise(i) & "\" & Sampler & "\DL" & x & "\"
            .FileType = msoFileTypeAllFiles
            .FileName = "*.png"
            If .Execute > 0 Then
                For y = 1 To .FoundFiles.Count
                DoCmd.SetWarnings (False)
                DoCmd.RunSQL ("INSERT INTO TblPics(Cruise, Sampler, Depth, Species, File) VALUES('" & Cruise(i) & "', '" & Sampler & "'," & x & ",'" & Mid(.FoundFiles(y), 49, Len(.FoundFiles(y)) - 52) & "','" & Right(.FoundFiles(y), Len(.FoundFiles(y)) - 20) & "')")
                DoCmd.SetWarnings (True)
                Next y
            End If
        End With
    Next x
Next i
   
End Sub


Jeg har forsoegt at smide kommentar felter ved enten Filetype eller Filename (men jeg er noed til at bruge en af dem) jvf foreslag fra: http://support.microsoft.com/default.aspx?scid=kb;en-us;208811
Dette loeser dog ikke problemet, har checket referencer og der er reference til Microsoft Access 8.0 Library som der skal vaere....

Nogen som ligger inde med en loesning hvor jeg stadig kan faa retunereret filnavn ?