唉，两个多小时都搞不定^^^^

Question

Private Sub Command1_Click()
conn.Open connstr
aaa = Combo1.List(Combo1.ListIndex)或aaa=combo1.text
sql = "select 受命时间 from 运送员工工作 where 姓名＝'" & aaa & "'"
Set rs = conn.Execute(sql)
Text1.Text = Adodc1.Recordset("受命时间")每次运行时都会出现“语法错误（操作符丢失），在查询表达式 '姓名＝'liu''中”

Answer 1

把SQL
放到数据库中执行一下
看看是什么提示从你上面的代码看
你的 "=" 好象不是英文字符.

Answer 2

if trim(aaa)<>"" then
   sql = "select 受命时间,姓名 from 运送员工工作 where 姓名＝'" & trim(aaa) & "'"
else
   sql = "select 受命时间,姓名 from 运送员工工作"
end if

Answer 3

Private Sub Command1_Click()
conn.Open connstr
aaa = Combo1.List(Combo1.ListIndex)
sql = "select 受命时间 from 运送员工工作 where 姓名='" & aaa & "'"
Set rs = conn.Execute(sql)
Text1.Text = Adodc1.Recordset("受命时间")
问题出在你用了全角的＝号。