Buenas amigo,
La primera solución que propones era la que estaba poniendo.
La segunda da el siguiente error:
Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Environ("temp") & ";" _
& "Extended Properties=""text;HDR=Yes;FMT=Delimited(,)"";Persist Security Info=False"
oRS.Open "SELECT EDAD FROM [datos.csv] WHERE NOMBRE='MARIO'", oConn, adOpenDynamic, adLockReadOnly
Dim ofield As ADODB.Field
Do Until oRS.EOF
For Each ofield In oRS.Fields
MsgBox "Field Name = " & ofield.Name & " Field Value = " & ofield.Value
Next ofield
oRS.MoveNext
Loop
Devuelve
-2147467259 (800040005) Error in 'Open' method of '_Recordset' object.
Gracias.