主要代码:

 Dim db As Object 'DAO.Database
    Dim tdf As Object ' DAO.TableDef
    Dim varItem As Variant
    If IsNull(Me.修改后) Then
        MsgBox "修改后不能为空，请输入修改后名称。", vbExclamation
        Me.修改后.SetFocus
        Exit Sub
    End If
    If IsNull(Me.修改前) Then
        MsgBox "修改前不能为空，请输入修改前名称。", vbExclamation
        Me.修改前.SetFocus
        Exit Sub
    End If
    For Each varItem In Me.lst_文件.ItemsSelected
'        Debug.Print Me.lst_文件.Column(0, varItem)
        Set db = DBEngine(0).OpenDatabase(Me.txt_文件 & "\" & Me.lst_文件.Column(0, varItem))
        Set tdf = db.TableDefs("示例表")
        tdf.Fields(Me.修改前).Name = Me.修改后
        
    Next
    MsgBox "修改成功。", vbInformation

附件下载:

点击下载此附件

演   示: