在Access应用程序中实现自动更新，可以通过以下步骤：

1. 创建一个包含新版本信息的表格。

2. 编写一个程序，用于检查新版本在表格中是否可用，并在是的情况下下载新版本文件。

3. 创建一个模块，并将程序添加到模块中去。

4. 编写一个主文件用于检查版本更新。

5. 设置一个启动选项，当Access应用程序启动时执行主文件中的代码。

下面是一个示例代码段，用于检查是否有新版本。

Public Function UpdateAvailable() As Boolean

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strFilename As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM tblVersions ORDER BY dtmReleaseDate DESC;")

rs.MoveFirst
strFilename = rs!strFilename

If strFilename <> "" Then
    If FileExists(strFilename) Then
        UpdateAvailable = True
    End If
End If

rs.Close
db.Close

End Function

此函数可以在Access应用程序的启动选项中执行，以检测是否有新版本可用。如果检测到新版本，则可以显示一个对话框，提醒用户更新。用户也可以选择在下次启动时更新，从而在下次启动时自动更新。

使用类似的方法，可以在Access应用程序中实现自动更新功能。