对于如何更改表或者其他数据库对象的名字有以下几种方式：

方法一：更改表名，调用 ADOX 即可 (测试环境为ADOX2.7)
Function Test()
    Debug.Print renameTableName("b", "cxcd")
End Function
Function renameTableName(strOldName As String, strNewName As String) As Boolean
    On Error Resume Next
    Dim tbl As ADOX.Table
    Dim cat As New ADOX.Catalog
    Set cat.ActiveConnection = CurrentProject.Connection
    '上面这句中 CurrentProject.Connection 在VB中要更改为已经open的connection对象
    For Each tbl In cat.Tables
        If tbl.Name = strOldName Then tbl.Name = strNewName
    Next
    If Err.number <> 0 Then
        renameTableName = False
    Else
        renameTableName = True
    End If
End Function

方法二：DoCmd.Rename "新表名", acTable, "原表名"

Rename 方法

方法三：也可以使用 DAO 来更改表名
'请在VBE 界面中的 菜单 -> 工具 -> 引用 中选取 Microsoft DAO 3.6 Object Library.
CurrentDb.TableDefs("OldName").Name = "NewName"
'或者写一个枚举也可以
Sub Test()
    Dim Tbl As DAO.TableDef
    For Each Tbl In CurrentDb.TableDefs
        If Tbl.Name = "OldName" Then 
            Tbl.Name = "NewName"
            Exit For
        End If
    Next
End Sub