Scripting.FileSystemObject doesn't work in Access 2007 - What does?

Sub ImportFile(TxtFileName As String)
    On Error GoTo Err_ImportFile
    Dim Order_Number As String
    Dim txtLine As String
    Dim ar1() As String
    'Dim Cutrite_EXD As Recordset
                  
    '//  Open the table
    'Set Cutrite_EXD = New ADODB.Recordset
    'Cutrite_EXD.CursorType = adOpenKeyset
    'Cutrite_EXD.LockType = adLockOptimistic
    'Cutrite_EXD.Open "Cutrite_EXD", CurrentProject.Connection
    Dim db As Database
    Set db = CurrentDb()
    Dim rs As DAO.Recordset
    Set rs = db.OpenRecordset("select * from Cutrite_EXD where Pattern_Number = '~'")
    '//  Open the text file
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(TxtFileName, 1, TristateFalse)
    '//  Skip the first 4 lines
    For i = 1 To 4
        f.SkipLine
    Next i
    
    '//  Read line 5
    txtLine = f.ReadLine
    '//  Split the line up at the slashes
    ar1 = Split(txtLine, "/")
    '//  Assign the Order number to its variable
    Order_Number = ar1(1)
    Dim myPos As Integer
    myPos = InStr(Order_Number, "-")
    If myPos <> 0 Then
       Order_Number = Left(Order_Number, myPos - 1)
    End If
    '//  Skip the next 2 lines
    For i = 1 To 2
        f.SkipLine
    Next i
    
    '//  Loop through all of the remaining lines
    Do While f.AtEndOfStream <> True
        txtLine = f.ReadLine
        Erase ar1
        ar1 = Split(txtLine, ",")
        
 'GH & MK 6/26/07 tweaked routine, to illiminate type %4 total records from exd.
        If ar1(0) = "%3" Then
            rs.AddNew
            rs!Order_Number = Order_Number
            rs!Pattern_Number = ar1(1)  '// Pattern_Number
            rs!Board_Identity = ar1(2)  '// Board_Identity
            rs!Width = ar1(3)  '// Width
            rs!Length = ar1(4)  '// Length
            rs!Qty_In_Stock = ar1(5)  '// Qty_In_Stock
            rs!Qty_Used = ar1(6)  '// Qty_Used
            rs!Area = ar1(7)  '// Area
            '//  Commit the data to the table
            rs.Update
        Else
            '// Do Nothing, so if it = %4 want to skip to next line
        End If
    Loop
    
Exit_ImportFile:
    '//  Close the text file
    f.Close
    '//  Close the table
    rs.Close
    Exit Sub
Err_ImportFile:
    If Err.Number = -2147217887 Then
        MsgBox "Duplicate Record: Order Number: " & Order_Number & " Board Idenity: " & ar1(1)
    Else
        MsgBox "Error: " & Err.Number & " " & Err.Description
    End If
    'Cutrite_EXD.CancelUpdate
    Resume Next
End Sub

Select allOpen in new window