以下程序编译时候出现“实时错误91，对象变量未定义”
Sub Form_Load()

Dim tabname As String
Dim TabNameC As String
  
Dim SQL As String

  
  Call Set_FieldName

  tabname = "QuXYS"
  Call TabExist_Check(tabname)
  If Tab_Check <> 1 Then
      Call AppendTab1(tabname)
  End If
  '
  Call Set_FieldNameC
  TabNameC = "QuXYSCG"
  Call TabExist_Check(TabNameC)
  If Tab_Check <> 1 Then
      Call AppendTab2(TabNameC)
  End If

  Data1.DatabaseName = DbName
  Data1.RecordSource = tabname
  Data1.Refresh

  调试时光标在此提示错误发生：
If Data1.Recordset.RecordCount <> 0 Then
      Data1.Recordset.MoveLast
      Data1.Recordset.MoveFirst
  End If
  DBCount1 = Data1.Recordset.RecordCount


  Call Grid1_ini
  Grid1.Row = 1
  Grid1.Col = 1

  Frame1.Caption = "数据共 " + Str$(Data1.Recordset.RecordCount) + " 行"
  Frame2.Caption = "数据共 " + Str$(Data1.Recordset.RecordCount) + " 行"


  Screen.MousePointer = 0
  
End Sub


Sub Form_Activate()
If Text1(0).Visible = True Then
   Text1(0).SetFocus
End If

End Sub

是不是还没有执行查询，所以Recordset为空？

一运行即出错
应该如何改正？

引用:

multiple1902 在 2008-7-23 13:14 的发言：

是不是还没有执行查询，所以Recordset为空？

执行查询？

data控件我不太熟悉，但是数据库的基本原理是通用的。

执行查询了没有？

  Data1.DatabaseName = DbName  

dbName是什么形式的内容？文件名还是库名？

如果把数据库中断（比如移动数据库文件、改名），是不是刚才的出错行之前的代码仍然不出错？

我就是为了做一个数据录入，然后还能进行查询的功能
dbname为库名
但是执行到
If Data1.Recordset.RecordCount <> 0 Then
      Data1.Recordset.MoveLast
      Data1.Recordset.MoveFirst
End If
就不行

谢谢 的确是那个原因