Question

vb数据库编程报错“对象变量或with块变量未设置。”

我是跟着教材的例子编的，怎么一上来就报错。
用Date控件连接Access数据库
Form_Load()里面第一句If Data1.Recordset.EOF And Data1.Recordset.BOF Then '检测记录集是否为空
这里就报错了“对象变量或with块变量未设置。”
以下是代码
Private Sub CmdAdd_Click() '添加
Data1.Recordset.AddNew
CmdDelete.Enabled = False
CmdFind.Enabled = False
CmdUpdate.Enable = True
Txt(0).SetFocus
End Sub

Private Sub CmdDelete_Click() '删除

End Sub

Private Sub CmdUpdate_Click() '更新
Data1.UpdateRecord
Data1.Recordset.MoveLast
CmdUpdate.Enabled = False
CmdDelete.Enabled = True
CmdFind.Enabled = True
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
If Save = True Then
If MsgBox("要保存修改吗？", vbYesNo, "提示") = vbNo Then
Save = False
Data1.UpdateControls '恢复原先内容
End If
End If
End Sub

Private Sub Form_Load()
If Data1.Recordset.EOF And Data1.Recordset.BOF Then '检测记录集是否为空
CmdFind.Enabled = False
CmdDelete.Enabled = False
Else
Data1.Recordset.MomeFirst '指向第一个记录
End If
CmdUpdate.Enabled = False
End Sub

Answer 1

首先要保证你的data控件已经与数据库建立了有效的连接，而且已打开数据库中的某个数据表。
如果上面已确认无误而程序仍然出错，可以试着在出错的那行的上面插入一行
Data1.Refresh

Answer 2

你是不是只删除了MSHFlexgrid控件，代码里还有关于MSHFlexgrid的代码