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 '没有考生是，下一个报名号从0+1=1开始 End If End Sub什么问题啊？ Private Sub Form_Load() recs = Adodc1.Recordset.RecordCount 就是这里它会提示对象或with变量快未设置 If recs > 0 Then '已有考生 Adodc1.Recordset.MoveLast '移到最后一条记录 num = Val(Adodc1.Recordset.Fields("报名号")) '求最后以为考生报名号 Adodc1.Recordset.MoveFirst '移到开头记录 Else num = 0 '没有考生是，下一个报名号从0+1=1开始 End If End Sub 添加Adodc1控件 工程——〉控件——〉microsoft ado data control6.0 工程——〉部件——〉microsoft ado data control6.0 已经添加了啊。。是不是和数据库的连接有问题啊？？？
帮我改改 我总觉得有问题 Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
