tipo de datos recordset

Buenas a

tengo un programita en excel que me rellena una base de datos de sql

Antes funcionaba estupendamente pero al exportar el modulo a otra hoja de
excel resulta que no me reconoce el tipo de datos recordset

me dice que no esta definido el tipo de datos defuinido por el usuario


Function Filtrar(Dato As Recordset) As Variant

If Dato.EOF And Dato.BOF Then
Filtrar = 0
Else
If IsNull(Dato.Fields(0).Value) Then
If Dato.Fields(0).Type = 10 Then
Filtrar = ""
Else
Filtrar = 0
End If
Else
If Dato.Fields(0).Type = 10 Then
Filtrar = CStr(Dato.Fields(0).Value)
Else
Filtrar = CDbl(Dato.Fields(0).Value)
End If
End If
End If
End Function


Gracias