Public adoConn As New ADODB.Connection 

　　Private Sub csv()

        adoConn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=C:\Documents and Settings\vinsonlu\Desktop\1400004"

        adoConn.Open()

        Dim rs As New ADODB.Recordset

        rs.Open("select * from Orders_N.csv", adoConn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)

        If rs.RecordCount >  Then

            rs.MoveFirst()

            While Not rs.EOF

                MessageBox.Show(CStr(rs.Fields().Value))

                rs.MoveNext()

            End While

        End If

        rs.Close()

    End Sub