order by 前是不是没有空格你写成rs1.Open "select * from GYSXX where 供应商编号='" & Text1(0).Text & "' order by 供应商编号", Cnn, adOpenKeyset, adLockOptimistic注意空格PS：我也不知道你具体的错误原因，如果单从这个语句看，似乎是SQL语句错误。编译的时候提示了什么错误，能说下吗？
