codice:
Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strQuery As String
    Dim strHeader As String
    
    strHeader = IIf(bHeader, "YES", "NO")
    
    strQuery = "Select * from [" & ExtractName(strFilePath) & "]"
    
    cn.Open Sprintf("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%1;Extended Properties=""text;HDR=%2;FMT=Delimited(%3);MaxScanRows=0;ImportMixedType=Text;IMEX=0""", ExtractPath(strFilePath), strHeader, strSeparatore)
    rs.Open strQuery, cn, adOpenStatic, adLockReadOnly, adCmdText
vi dico subito che quelli che vedete in extended properties sono i tentativi che sto facendo
per vedere se importa in formato stringa, prima mi fermavo a delimited