conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CsvOrdner;Extended" & _
  "properties='text;HDR=NO';"

conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CsvOrdner;Extended" & _
  "properties='text;DSN=EINSTELLUNG';"

Private Sub Command1_Click()
Dim conn2 As New Connection
Dim ergebniscsv As New Recordset
Dim spaltenAnzahl As Integer
 
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CsvOrdner;Extended" & _
  "properties='text;DSN=EINSTELLUNG';"
 
ergebniscsv.CursorLocation = adUseClient
 
ergebniscsv.Open "SELECT * FROM datei.csv", conn2, adOpenDynamic, _
  adLockOptimistic
 
spaltenAnzahl = ergebniscsv.Fields.Count
 
While Not ergebniscsv.EOF
                For i = 1 To spaltenAnzahl
                        MsgBox ergebniscsv.Fields(i - 1)
                Next i
 
                ergebniscsv.MoveNext
Wend
End Sub