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