Visual Basic - recordset

Buenas tardes a tod@s!

intento recorrer un cuadro de lista, con un recordset. Lo que quiero hacer es importar la tablas de dicha lista.
Hago lo siguiente:

Dim ruta As Variant
Dim carpeta1 As Variant
Dim lista As Recordset
Dim dbs As Database
Dim sql As String

Set dbs = CurrentDb
Set lista = dbs.OpenRecordset(sql, dbOpenDynaset)
With lista
.MoveFirst

'Do While Not lista.EOF 'mentre no arribi al final
'lista.MoveFirst
FTP.ReceiveFile ruta, carpeta1 & taula, rcBinary, rcoverwrite
.MoveNext
'Loop
End With

Y me da un error: "Error de tiempo de ejecución; no coinciden los tipos" en Set lista=dbs.open...

Me podéis decir a qué puede ser debido? Y sinó, alguna alternativa para hacer esta aplicación?
Muchas gracias por adelantado!
Un saludo!

Cambia:
Set dbs = CurrentDb
por
Set dbs = OpenDatabase("RutayNombreDeLaBaseDeDatos")
Es DAO con VB no VBA