请问如何打开一个ＣＳＶ文件，然后把数据写入ＤＡＴＡＧＲＩＤ中？

[chen2k]

请知道的高手说下，谢谢

[northwolves]

Sub xxxx()
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=d:\xxx.csv;", "", ""
rst.Open "select * from [TextFile#txt]", conn, adOpenKeyset, adLockPessimistic, adCmdText
Set Datagrid1.DataSource = rst
End Sub