Dim conStrCsv As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
  dirName & ";Extended Properties='text;HDR=Yes;FMT=Delimited(,)'"
        Dim sqlCsv As String = "Select * From " & "[" & selectedCsvFile & "]"
        Dim dtCsv As New DataTable
        Dim conCsv As New OleDb.OleDbConnection(conStrCsv)
        Dim daCsv As New OleDb.OleDbDataAdapter(sqlCsv, conStrCsv)
 
        conCsv.Open()
        daCsv.Fill(dtCsv)
        conCsv.Close()

Gru? asam