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

Alberto,

en el editor de VBA tienes que añadir la referencia a Microsoft DAO
(Herramientas/Referencias/Microsoft DAO x.x).

Saludos,

Valentín Playá Serra
Sonotronic S.A.
************************************************

"ALBERTO" escribió en el mensaje
news:O$
> 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

> 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
>
>