Private Sub Combo2_GotFocus()
Combo2.Clear
Call OpenConn
  sql = "select distinct '" & Combo1.Text & "' from 日常记事"
  rs.Open sql, cn, 1, 1
  Do While Not rs.EOF
  (Trim(rs.Fields('" & Combo1.Text & "') & ""))               '报错
rs.MoveNext
  Loop
Call CloseConn
End Sub

什么出错信息？

EXCEL_VBA 兼SQL语句写法 现在加油学习中。。。