edks窗体中的通用代码如下：
Private Sub Form_Load()
 recs = Adodc1.Recordset.RecordCount
 If recs > 0 Then '求出当前报名号
 Adodc1.Recordset.MoveLast
 num = Val(Adodc1.Recordset.Fields("报名号"))
 Adodc1.Recordset.MoveFirst
 Else
 num = 0
 End If
End Sub
当调用该窗体时，总出现“实时错误‘91’ 对象变量或with块变量未设置”
调试停留在带有色字体的一行
数据库用的是sql server 2000
recs 和 num都是全局变量
编程语言是vb6.0
请各位高手指点啊 ！！！
谢谢了

[[it] 本帖最后由 ljj_goon 于 2008-12-3 18:22 编辑 [/it]]