rs.Open "select * from [Sheet1$]", conn, adOpenDynamic, adLockOptimistic Set Grid1.DataSource = rs这两句不正确。
