一、如下：
      症状
当您启动 Microsoft Visual Basic for Applications (VBA) 代码, MicrosoftAccess 数据库中可能会收到类似以下错误消息：
On Click 表达式您输入如事件属性设置产生以下错误： A 与 OLE 服务器或 ActiveX 控件是 MicrosoftAccess 通信时出错。

原因
如果下列条件为真可能发生此问题： ? 创建事件处理程序、 函数或子程序要启动 Access 窗体或报表中 VBA 代码。
? 使用大于计算机上您创建事件处理程序、, 函数或子例程非Unicode 不同语言设置计算机上运行 VBA 代码。
注意 如果 VBA 代码包含重音字符或特殊字符也发生此问题。 如果 Access 数据库中的对象名称包含重音字符或特殊字符此外, 发生此问题。

解决方案：
方法 1： 验证非Unicode 语言
如果 Microsoft 基于 WindowsXP 计算机或基于 Windows 2000 的计算机, 上运行 VBA 代码您可以通过更改其中运行 VBA 代码计算机上非Unicode 语言设置来解决此问题。 要验证并要更改非Unicode 语言设置, 请按照下列步骤。

注意 由于目前有若干版本的 MicrosoftWindows, 以下步骤可能不同计算机上。 如果它们, 请参阅产品文档来完成这些步骤。
   1. 然后单击 确定 、 开始 、 键入 Intl.cpl , 和 运行 。
   2. 在在 高级 选项卡, 语言对于非Unicode 程序 确认语言匹配上您创建事件处理程序、 函数或子例程计算机上语言。 如果语言不同, 单击在您希望, 语言， 然后单击 确定 。
   3. 重新启动计算机。

方法 2： 删除重音字符或特殊字符从 VBA 代码和数据库对象
要解决此问题, VBA 代码中或数据库对象中删除任何重音字符或特殊字符出现。 例如, 窗体节和本地化版本的 Access 中创建的报表节可能包含重音字符或特殊字符。

请重命名 Access 对象或包含重音字符或特殊字符, 的 Access 对象, 中部分按照下列步骤操作：   1. 启动 Access, 并打开数据库， 需要。
2. 右击窗体或报表， 要, 然后单击 设计视图 。
3. 右击对象， 要, 并单击 属性 。
4. 在 全部 选项卡在 名称 框中, 键入名称不包含重音字符或特殊字符。
5. 重命名对象后, 打开 VisualBasic 编辑器确定更改是否出现在 VBA 代码。 对象可能保留原始名称。 如果出现此问题, 则必须手动重命名 VBA 代码中对象。

步骤来重现问题
1. 俄语版本的 WindowsXP 和 Microsoft Office 2003 安装计算机上启动 Access。
2. 创建新的 Access 数据库。
3. 窗体添加到数据库。 默认情况下, 名， 是为 Form 1 窗体创建。
4. 在设计视图, 命令按钮添加到窗体。
5. 用鼠标右键单击该步骤 4, 中添加命令按钮， 然后添加以下代码示例添加到命令按钮的 Click 事件。 
On Error GoTo Err_cmdMsgBox_Click
MsgBox "Hello World"
Exit_cmdMsgBox_Click:
Exit Sub
Err_cmdMsgBox_Click:
MsgBox Err.Description
Resume Exit_cmdMsgBox_Click
 
 
6. 编译 Access 数据库。
7. 关闭 VisualBasic 代码窗口, 然后关闭 Access 数据库。
8. 上安装英文版本的 WindowsXP 和 Office 2003, 确认非Unicode 语言设置为 英语 （美国） 。
9. 复制 Access 数据库步骤 2 到步骤 8 中计算机中创建。
10. 打开 Access 数据库， 打开窗体包含命令按钮, 然后单击命令按钮以运行 VBA 代码。

二、本文摘自：http://support.microsoft.com/kb/907337/zh-cn