VB6.0 数据库 编程 BOF、EOF不起作用是为什么？

Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jsyxxgl.mdb"
    rs.Open "select * from Main_User", conn, 2, 2

Private Sub Command3_Click()
    If rs.EOF Then
        MsgBox "已到末记录", 48, "记录浏览"
    Else
        rs.MoveNext
        Call display
    End If
End Sub

这个程序我是按照教程写的，问题就是会超出下边，出现3021实时错误，本人是新手，希望能有大神能解答这个问题，感激不尽~~~