VB数据库编程问题，给看下这是什么错误？怎么解决？高手来解答~~~~

窗体名FORM4，上面有Label1，Command1
数据库“SHIJUAN”表有题号，答案，学号三列
“题库”表编号，题，分值三列
“guize”表数量，分值两列
想实现的功能：从GUIZE表读取某一分值的题的数量，随机从题库表抽取题目，把该题题号和学号（就是窗体CAPTION属性）写入SHIJUAN表
错误提示：实时错误3021，EOF或BOF中有一个是“真”，或者当前记录已被删除，所需要的操作要求一个当前的记录。
但是我的数据库里有几十条记录，查错时显示RS4在第7条记录，绝不是EOF或BOF……这是什么错误？怎么解决？
代码如下：

Dim dbtihao As Integer, dbfenzhi As Integer, dbshuliang As Integer, tishuliang As Integer, sjpx(100) As Integer, bianhao As Integer
Dim rs1 As ADODB.Recordset, rs2 As ADODB.Recordset, rs4 As ADODB.Recordset, cn As ADODB.Connection
Private Sub Command1_Click()
Set cn = New ADODB.Connection
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs4 = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
rs1.ActiveConnection = cn
strsql = "select * from guize"
rs1.Open strsql, cn, adOpenKeyset, adLockPessimistic
rs2.ActiveConnect

VB编程数据库问题 VB数据库编程问题 VB编程连接SQL SEVER数据库问题 关于VB的数据库编程问题！ VB数据库编程问题，继续在线等！ VB编程连接数据库的问题 VB.Net数据库编程的问题 VB 数据库编程问题 为什么我的数据库越来越大 VB数据库编程问题，给看下这是什么错误？怎么解决？高手来解答~~~~ vb数据库编程