Question

VB中 对象变量或with块变量未设置

我从网上下载一个基于vb+access的图书管理系统教程，按部就搬，但是做到第一个窗体“图书登记”就出现问题，点击“增加记录”就会出现“对象变量或with块变量未设置”本人愚昧，实在不清楚是怎么回事，愿知者给出满意的答案！谢谢！
代码如下：
Private Sub Command1_Click()
On Error GoTo adderr

Text1.SetFocus

Adodc1.Recordset.AddNew

Exit Sub

adderr:

MsgBox Err.Description

End Sub
附图如下：
错误出在 “Adodc1.Recordset.AddNew”处！

Answer 1

对象变量或 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 语句执行初始化。

Answer 2

问题可能出在 Adodc1，请把有关的代码都贴出来，以便分析原因。

Answer 3

首先要将adodc控件设置recordsource设置成你的数据表connectionstring属性设置成你要打开的数据库文件.然后将datagrid控件datasource设置成adodc.

Answer 4

Adodc1.Recordset 为空或未打开，所以然，查明adodc1状态

Answer 5

你写Dim Adodc as new + 对象类型了吗
（我都不知道你的对象类型）
这是引用部件的人常有的问题，定义变量时不写"new"
Adodc1.Recordset.AddNew是个方法
一旦要使用模块中的方法，定义时一定要加"new"