First off, that's not CSV - it stands for "Comma Separated Values" and strictly, that isn't separated by commas, it uses hyphens instead.
And the other problem is that CSV is organised into rows of columns, and you appear rto not be doing that at all.
Instead, I'd just read it as text, and use Split to "break it up". You can then use the result to populate your DGV directly:
Dim data As String = File.ReadAllText("D:\Test Data\AAAData.csv")
Dim parts As String() = data.Split("-"c, vbLf)
Dim viewable = parts.[Select](Function(p) New With {Key.Value = p}).ToList()
dataGridView1.DataSource = viewable