Ich habe ein externes Programm, das Daten in CSV-Dateien exportiert. Meine Benutzer möchten über eine VBA-Funktion in Excel auf diese Daten zugreifen können. Zu diesem Zweck habe ich überlegt, die gelesene CSV-Datei in eine Funktion zu verpacken, die ein ADODB.Recordset zurückgibt. Mein Code ist

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

Ich versuche diese Funktion mit aufzurufen

Dim a As ADODB.Recordset
Set a = getData("testFile.csv")
a.Open()

Zu diesem Zeitpunkt erhalte ich den Kompilierungsfehler '=' erwartet. Könnte mich jemand in die richtige Richtung weisen, wie ich meine Funktion aufrufen und die Daten durchlaufen soll?