紧急求助,做VB查询SQL上下记录的时候出错.

代码如下
Private Sub Form_Load()
 Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=试题管理系统;Data Source=LCNZUB5BLLFDS9N\SQLEXPRESS"
 Adodc1.RecordSource = "select * from 单选"
 Adodc1.Refresh
 
 Command5.Enabled = True
 Command6.Enabled = True
 Command7.Enabled = True
 Command9.Enabled = True
  With Combo1
  .AddItem "1"
  .AddItem "2"
  .AddItem "3"
  End With
End Sub
(以上我连接数据库成功,然后我做了4个按钮,第一条记录,上一条记录,下一条和最后一条记录,前两个代码如下)
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
MsgBox "已经在第一条记录！", , "试题库管理系统"
End Sub

Private Sub Command2_Click()
If Adodc1.Recordset.BOF = True Then
  MsgBox "已经在第一条记录！", , "试题库管理系统"
  Adodc1.Recordset.MoveFirst
Else
  Adodc1.Recordset.MovePrevious
  If Adodc1.Recordset.BOF = True Then
  Adodc1.Recordset.MoveFirst
  MsgBox "已经在第一条记录！", , "试题库管理系统"
  End If
End If
End Sub
第一次启动的时候,点击Command1，2(第一条,上一条)都会出错,内容是80040e4e 操作已被取消
点击调试 定位在Adodc1.Recordset.MoveFirst或Adodc1.Recordset.MovePrevious
但是如果此时再点击启动按钮,就能正确弹出我的Msgbox,并且之后怎么点都不会报错也有查询记录的功能.
求大大们告知如何修改才能不出问题,10号就要交作业了,急.
先谢谢各位了

http://download.csdn.net/detail/veron_04/3827200

楼上的我下了看了,对我没有任何帮助,补充一下,如果我直接使用aodoc1的那个上下查询记录功能,第一次点击也会出现操作已取消,但是不会报错弹回工程,再次点击即可正确生效 这是为什么呢?