如何从链接的.txt文件中定期更新MS Access表？

Sub UpdateTableFromTextFile()
    Dim db As Database
    Dim rs As Recordset
    Dim filePath As String
    Dim fileContent As String
    Dim fileLines() As String
    Dim lineData() As String
    Dim i As Integer
    
    ' 设置文件路径
    filePath = "文件路径.txt"
    
    ' 读取文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 按行拆分文件内容
    fileLines = Split(fileContent, vbCrLf)
    
    ' 打开Access表
    Set db = CurrentDb
    Set rs = db.OpenRecordset("表名")
    
    ' 清空表数据
    db.Execute "DELETE FROM 表名"
    
    ' 逐行更新表数据
    For i = 0 To UBound(fileLines)
        lineData = Split(fileLines(i), ",")
        
        ' 在表中插入新记录
        rs.AddNew
        rs.Fields("字段1").Value = lineData(0)
        rs.Fields("字段2").Value = lineData(1)
        ' ...
        rs.Update
    Next i
    
    ' 关闭记录集和数据库
    rs.Close
    db.Close
    
    MsgBox "表更新完成！"
End Sub