Pues mira este Código funciona sin Brobleas, Adaptalo a tu Caso, Cualquier cosa me escribes a
[email protected], Suerte
Private Sub Form_Load()
Dim Reco1 As Recordset
'El LLamado
Set Reco1 = DevReco
'comprobar que vino
Do While Not Reco1.EOF
Debug.Print Reco1.Fields(0)
Reco1.MoveNext
Loop
End Sub
'La Función
Private Function DevReco() As Recordset
Dim Base As Database
Dim Reco2 As Recordset
Set Base = OpenDatabase("d:\ElierIm\Estimula.mdb", False, False)
Set Reco2 = Base.OpenRecordset("Personal", dbOpenDynaset)
Set DevReco = Reco2
End Function