实时错误“3021”BOF或EOF中有一个是“真”，或者当前的记录已被删除

可能是我的db1.mdb里面的db01里面的没有数据

我试着在form_load()里面添加如下代码：

Private Sub Form_Load()


    Dim ConString As String
    ConString = "Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info = False;" _
               & "Data Source =" & App.Path & "\db1.mdb;Jet OleDb:"

   
    Set conn = CreateObject("ADODB.Connection")
    With conn
        .ConnectionString = ConString
        .Open
    End With
   
    Label1.Caption = Now
Text3.Text = Year(Date)
Text4.Text = Month(Date)
Text5.Text = Day(Date)


    Rst.CursorLocation = adUseClient
    Rst.Open "Select * From db01", conn, adOpenKeyset, adLockPessimistic, adCmdText
   
    If Rst.RecordCount > 0 Then
   
    Text1.Text = Rst.Fields("jr").Value & ""
    Text2.Text = Rst.Fields("bz").Value & ""
Rst.Fields("n") = Text3.Text
Rst.Fields("y") = Text4.Text
Rst.Fields("r") = Text5.Text

    Else
   
   
End If
Text4.ForeColor = RGB(0, 0, 150)
Text5.ForeColor = RGB(0, 0, 150)
End Sub