Hi...

in VB/VBA you can use the split function. You´ll get back an Array:

Dim vTmp as Variant

vTmp = Split(RS.Fields("address"), vbCrLf)

RS.Fields("address1) = vTmp(0)

RS.Fields("address2) = vTmp(1)

RS.Fields("address3) = vTmp(2)

RS.Fields("address4) = vTmp(3)

RS.Update

May this help you.

Greetings...