Visual Basic - Me ayudan?

Hola Amigos la rutina q abajo les pongo me tira el error 13 "no coinciden los tipos, sospecho q alguna referencia me faltara activar. Saben cual puede ser? (Es como q no me acepta "base")

Dim rut As Recordset
Dim base As Database
Set base = OpenDatabase("c:\dd\gym.mdb")
Set rut = base.OpenRecordset("pagos")