解决方法：因为Ljid不是数值型，而是文本型，所以把
rst.FindFirst "ljID=" & SelectionList.Column(0, varItem)
改成
rst.FindFirst "ljID='" & SelectionList.Column(0, varItem) & "'"
就行了。

变量学习：
文本：strsql = ... where fldName = '" & 变量 & "'   或在平台中用 fldName = " & Sqltext(变量)
数值：strsql = ... where fldName = " & 变量  或 fldName = " & Nz(变量)       
日期：strsql = ... where fldName = #" & 变量 & "#  或平台中用 fldName = " & SqlDate(变量)


【Access扫盲知识】声明模块变量的用法,变量符号用法,文本型变量.日期型变量,数字型变量,数值型变量的符号表示法[Access软件网]
http://www.accessoft.com/article-show.asp?id=8013