IMPORTAR ARQUIVO CSV PARA TABELA VIA CODIGO VB2008

[ô]...
Dim lista As New List(Of Sócio)
Using parser As New TextFieldParser(nomeCompletoDoArquivoTexto)
	parser.CommentTokens = New String() {[Ô]#[Ô]}
	parser.SetDelimiters(New String() {[Ô];[Ô]})
	parser.HasFieldsEnclosedInQuotes = True
	[ô] Se houver cabeçalho, saltar uma linha ...
	parser.ReadLine()
	While Not parser.EndOfData
		Dim fields As String() = parser.ReadFields()
		lista.Add(New Sócio() With
                                                     { 
			  .Nome := fields(0), 
			  .Endereço := fields(1), 
			  .AnoDeCadastro := Integer.Parse(fields(2)), 
			  .Mensalidade := Double.Parse(fields(3), (New Globalization.CultureInfo([Ô]pt-BR[Ô]))) 
		                  })
	End While
End Using
[ô]...

...
Private Function CSV2Tabela(ByVal arquivo As String) As DataTable
	Dim ret As New DataTable
	With ret
		With .Columns
			.Add([Ô]Nome[Ô],GetType(String))
			.Add([Ô]Endereço[Ô],GetType(String))
			.Add([Ô]AnoDeCadastro[Ô],GetType(Int32))
			.Add([Ô]Mensalidade[Ô],GetType(Double))
		End With
	End With
	Dim iRows As Integer
	Dim iCols As Integer
	Dim strarray(1, 1) As String
	[ô]Verificar se o arquivo existe:
 	If IO.File.Exists(arquivo) Then
  		Dim tmp As IO.StreamReader = IO.File.OpenText(arquivo)
  		Dim linhas() As String
  		Dim linha() As String
  		[ô]Ler o arquivo
  		linhas = tmp.ReadToEnd().Split(Environment.NewLine)
  		[ô]Redimensionar a matriz de retorno
  		iRows = UBound(linhas)
  		linha = linhas(0).Split([Ô],[Ô])
  		iCols = UBound(linha)
  		[ô]Copiar os dados lidos na tabela
  		For x As Integer = 0 To iRows
  		      linha = linhas(0).Split([Ô],[Ô])
		      ret.Rows.Add(linha(0), linha(1), linha(2), linha(2))
  		Next
	End If
	Return ret
End Function
...