请教搜索数据库"内存溢出"

Question

Set rs = conn_db(path, sql)While rs.EOF = False
Me.lstword.AddItem (rs![pro_kana])           '往列表中添加记录
rs.MoveNext
Wend
rs.Close以上这段代码,搜索的记录数只有一条，添加完一条记录以后,做movenext的时候会出现内存溢出,请问这是怎么回事???是否跟搜索的内容有关系?这段代码用来搜索的列中只有中文的时候没发现问题，搜索的列中包含日文的时候就出现了这个问题.

Answer 1

试试：Set rs = conn_db(path, sql)While rs.EOF = False
Me.lstword.AddItem (rs![pro_kana])           '往列表中添加记录
rs.MoveNext
If rs.EOF Then rs.MoveLast
Wend
rs.Close