赋值给一个单元格?
Do While Not rs.EOF
sht.Cells(i, 3).value = sht.Cells(i, 3).value & vbCrLf & rs.fields(0)
rs.movenext
Loop