Runtime error

[ryan8200]

I tried to get multiple csv files from specific folder via connection string as below:

    Set cn = New ADODB.Connection
    
    cn.ConnectionString = _
        "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
        "Dbq=" & ThisWorkbook.Path & "\Files needed\;" & _
        "Extensions=asc,csv,tab,txt;"
    
    cn.Open

But there is error message indicated [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified. What I have been overlooked ?

 

[ranman256]

does: thisworkbook.Path have a value?
try setting the folder via a CONST or from activeworkbook.FullName