实时错误3021，EOF,BOF中有一个是真，或者当前的记录已经被删除，所需的操作要求一个当前的记录

[sqs0503]

帮帮忙，我是VB的初学者，下面一段程序一运行就出现上述错误程序代码如下：
Private Sub Command4_Click()
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.Fields(1).Value = Text3.Text
Adodc1.Recordset.MoveNext
Loop
Select Case Text2.Text * 9 / 5 + 32
Case Is <= 100
Text4.Text = Adodc1.Recordset.Fields(2).Value * 6.895
Case Is <= 200
Text4.Text = Adodc1.Recordset.Fields(3).Value * 6.895
End Select
End Sub
ADODC1属性窗口如下：
BOFaction 0-ADdo movefirst
EOFaction 0-ADdo movelast

[Nihn]

这说明Recordset里没有数据，要写判断语句。
If Adodc1.Recordset.eof <> True Then '如果有数据
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.Fields(1).Value = Text3.Text
Adodc1.Recordset.MoveNext
Loop
Select Case Text2.Text * 9 / 5 + 32
Case Is <= 100
Text4.Text = Adodc1.Recordset.Fields(2).Value * 6.895
Case Is <= 200
Text4.Text = Adodc1.Recordset.Fields(3).Value * 6.895
End Select
End If
试一试吧。