Line breake

I am successfully writen data in word document from access table using loop. But There is no line (row / record) breake. Like:

name city name city name city

I want to write above line like this:

name city
name city
name city

here is my code:

rs.Open ("SELECT * FROM temcash"), db
Do Until rs.EOF
com1 = rs.Fields("name")
com2 = rs.Fields("city")

Call RepPara("com1", com1)
Call RepPara("com2", com2)

rs.movenext
loop

Please help me.

Add a vbCrLf to your variable, like this...

VB Code:

com1 = rs.Fields("name")  & vbCrLf