Thanks.. I modified the code, and got the error message:

"TrimFileHeader reported error 5: Invalid procedure call or argument "

Let me just copy the full code here, and you might help me out to see if I
got anything wrong.. I am really confused..

Thanks a lot!

---------------------------

Private Sub Command0_Click()

   Dim stDocName As String
   Dim lngRetVal As Long

   stDocName = "C:\SVM220.txt"

   strSQL = "delete * from SVM200_Table"
   CurrentDb.Execute strSQL, dbfailonerror
 
  lngRetVal = TrimFileHeader(stDocName, 7)
  If lngRetVal = 0 Then
    DoCmd.TransferText acImportFixed, "svm220", _
        "SVM200_Table", stDocName
  Else
    MsgBox "TrimFileHeader reported error " _
       & lngRetVal & ": " & Error(lngRetVal), _
       vbExclamation + vbOKOnly
   End If
End Sub

Function TrimFileHeader( _
 ByVal FileSpec As String, _
 ByVal LinesToTrim As Long, _
 Optional ByVal BackupExtension As String = "") As Long
 
 'Removes the specified number of lines from the beginning
 'of a textfile.
 'Optionally leaves the original file with its extension
 'changed to BackupExtension.
 'Returns 0 on success, otherwise the number of the error.
 
 Dim fso As Object 'Scripting.FileSystemObject
 Dim fIn As Object 'Scripting.TextStream
 Dim fOut As Object 'Scripting.TextStream
 Dim fFile As Object 'Scripting.File
 Dim strFolder As String
 Dim strNewFile As String
 Dim strBakFile As String
 Dim j As Long
 
 On Error GoTo Err_TrimFileHeader
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 
 With fso
   'Handle relative path in Filespec
   FileSpec = .GetAbsolutePathName(FileSpec)
   strFolder = .GetParentFolderName(FileSpec)
   strNewFile = .BuildPath(strFolder, fso.GetTempName)
   'Open files
   Set fIn = .OpenTextFile(FileSpec, ForReading)
   Set fOut = .CreateTextFile(strNewFile, True)
   
   'Dump header
   For j = 1 To LinesToTrim
     fIn.ReadLine
   Next
   
   'Read and write remainder of file
   Do While Not fIn.AtEndOfStream
     fOut.WriteLine fIn.ReadLine
   Loop
 
   fOut.Close
   fIn.Close
 
   'Rename or delete old file
   If Len(BackupExtension) > 0 Then
     strBakFile = .GetBaseName(FileSpec) _
       & IIf(Left(BackupExtension, 1) <> ".", ".", "") _
       & BackupExtension
     If .FileExists(.BuildPath(strFolder, strBakFile)) Then
       .DeleteFile .BuildPath(strFolder, strBakFile), True
     End If
     Set fFile = .GetFile(FileSpec)
     fFile.Name = strBakFile
     Set fFile = Nothing
   Else
     .DeleteFile FileSpec, True
   End If
 
   'Rename new file
   Set fFile = .GetFile(strNewFile)
   fFile.Name = .GetFileName(FileSpec)
   Set fFile = Nothing
   Set fso = Nothing
 
 End With
 'normal exit
 TrimFileHeader = 0
 Exit Function
Err_TrimFileHeader:
 TrimFileHeader = Err.Number
End Function
----------------------------------