为对象变量赋值时应加Set。 如：Dim myF As Object myF=Form1 '该语句会出现你所述的错误信息。需改为：Set myF=Form1
xixi 已经把问题根源给你说了，还没搞定？
先看看是否写错了对象名。然后看以下： 对象变量或 With 块变量没有设置（错误 91）
创建对象变量有两个步骤。第一，必须先声明对象变量。然后必须用 Set 语句将一个正确的引用赋值给对象变量。同样地，With...End With 块必须先用 With 语句进入点来执行初始化。此错误有以下的原因和解决方法： 试图使用的对象变量，还没有用一个正确对象的引用来赋值。 给对象变量指定或再指定一个引用。例如，如果在下列的代码中省略 Set 语句的话，那么引用 MyObject 将会产生错误：Dim MyObject As Object ' 创建对象变量。 Set MyObject = Sheets(1) ' 创建一个正确的对象引用。 MyCount = MyObject.Count ' 计数值赋给 MyCount。试图用的对象变量已经被设为 Nothing。 Set MyObject = Nothing ' 释放此对象。 MyCount = MyObject.Count ' 引用了已释放的对象。再指定引用给对象变量。例如，使用新的 Set 语句给对象设置新的引用。此对象是正确的对象，但没有被设置，因为在对象库中，在 “引用” 对话框中没有被选取。 在 “添加引用” 对话框选择对象库。在 With 块内GoTo 语句的去向。 不要跳进 With 块。确保块使用 With 语句进入点以执行初始化。当选了 “设置下一条语句” 命令时，在 With 块内指定了一行。 With 块必须用 With 语句执行初始化。
看一下你的程序是不是有个 with xxx（变量） 但是没有end with 如果是的话，就是这个问题了，或者是有end with 没有 with，估计是前者
你这是数据库没引用, 或MSADO15.dll没有注册成功. 工程引用 Microsoft ActiveX Data Objects 2.5 Library 即可
如：Dim myF As Object
myF=Form1 '该语句会出现你所述的错误信息。需改为：Set myF=Form1
对象变量或 With 块变量没有设置（错误 91）
创建对象变量有两个步骤。第一，必须先声明对象变量。然后必须用 Set 语句将一个正确的引用赋值给对象变量。同样地，With...End With 块必须先用 With 语句进入点来执行初始化。此错误有以下的原因和解决方法： 试图使用的对象变量，还没有用一个正确对象的引用来赋值。
给对象变量指定或再指定一个引用。例如，如果在下列的代码中省略 Set 语句的话，那么引用 MyObject 将会产生错误：Dim MyObject As Object ' 创建对象变量。
Set MyObject = Sheets(1) ' 创建一个正确的对象引用。
MyCount = MyObject.Count ' 计数值赋给 MyCount。试图用的对象变量已经被设为 Nothing。
Set MyObject = Nothing ' 释放此对象。
MyCount = MyObject.Count ' 引用了已释放的对象。再指定引用给对象变量。例如，使用新的 Set 语句给对象设置新的引用。此对象是正确的对象，但没有被设置，因为在对象库中，在 “引用” 对话框中没有被选取。
在 “添加引用” 对话框选择对象库。在 With 块内GoTo 语句的去向。
不要跳进 With 块。确保块使用 With 语句进入点以执行初始化。当选了 “设置下一条语句” 命令时，在 With 块内指定了一行。
With 块必须用 With 语句执行初始化。