retornar arquivo csv como recordset
Eu tenho um programa externo que exporta dados para arquivos CSV. Meus usuários gostariam de ter acesso a esses dados através de uma função VBA no excel. Para fazer isso, pensei em agrupar o arquivo CSV em uma função que retorna um ADODB.Recordset. Meu código é
Public Function getData(fileName As String) As ADODB.Recordset
Dim path As String
path = "C:\testDir\"
Dim cN As New ADODB.Connection
Dim RS As New ADODB.Recordset
cN.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & path & ";" & _
"Extended Properties=""text; HDR=Yes; FMT=Delimited; IMEX=1;""")
RS.ActiveConnection = cN
RS.Source = "select * from " & fileName
Set getData = RS
End Function
Eu estou tentando chamar essa função usando
Dim a As ADODB.Recordset
Set a = getData("testFile.csv")
a.Open()
Neste ponto, recebo um erro de compilação dizendo '=' esperado. Alguém poderia me apontar na direção certa sobre como eu deveria chamar minha função e percorrer os dados?