Set rst = conn.exeute("select * from oper where 用户名='" & Trim$(Text1(0).Text) & "'" & "and 口令='" & Trim$(Text1(1).Text) + "'")
时实错误"3001"
  发了图片

用户名、口令这两个字段在你的数据库表oper中是否真的存在？

或者是少了一些空格。