为什么在access07上可以运行在10上提示编译错误类型不匹配

Private Sub Form_Timer()
On Error Resume Next
    Dim Rst As ADODB.Recordset
    Dim Sql As String
    Dim Coun As Integer
    Set Rst = New ADODB.Recordset
    Sql = "Select * from 未抽奖"
    Rst.Open Sql, CurrentProject.Connection, adOpenStatic
    Coun = Rst.RecordCount


    If S < Coun Then S = S + 1 Else S = 0
        Rst.Move S, 0
        Me.File_.Caption = Rst("数据清单")

End Sub

在网上找的代码，在07上正常运行，在10上一打开就弹个激活向导，下面错误代码0xC004F074，然后点击运行的话就弹出错误提示，选中了这句Coun = Rst.RecordCount中的.RecordCount

请问大神怎么解决，是因为激活的事吗