不知怎么改？请高手指教

不知如何改？请高手指教？
本帖最后由 chinatyq 于 2013-02-25 20:27:46 编辑 一个excel表
    A         B
1   aa         bb
2  1111     上台公司
3  2222      日期公司
4  3333      明显增加
...

tt="公司"
txtSQL = "select * from [sheet1$] Where bb like '%" & tt & "%'"    对”公司“进行模糊查询

xlRs.Open txtSQL, xlConn, adOpenKeyset, adLockOptimistic
xlCnt = xlRs.RecordCount

For j = 1 To xlCnt
If xlRs.EOF = False Then


st = st & xlRs("aa") & " " & xlRs("bb") & vbCrLf
   


End If
Next
Open "c:\china.txt" For Output As #1
Print #1, st
Close

当打开china.txt文件,却显示为
 1111     上台公司
 1111     上台公司             并不显示“2222      日期公司”

问题出在st = st & xlRs("aa") & " " & xlRs("bb") & vbCrLf  不知如何改？请高手指教？

[解决办法]
st = st & xlRs("aa") & " " & xlRs("bb") & vbCrLf
xlRs.MoveNext