TextArea

I have this code but no works like

Fill

Name : Alex Time: 3:00
Hello what up
Name : Tom Time: 4:33
Hi alex

how i can don this with the TextArea

Dim Rs As RecordSet

SqlStr=“Select * From jobsdata Where workordernum=” + Str(sNum)
Rs=DbConn.SQLSelect(SqlStr)
If DbConn.Error Then
MsgBox DbConn.ErrorMessage
Exit
End If

If Rs.RecordCount > 0 Then
Do
TxtTrabajo.Text=">"+Rs.Field(“userid”).StringValue + " Date:" + Rs.Field(“fecha”).StringValue + " Hora:"+ Rs.Field(“shora”).StringValue + EndOfLine + Rs.Field(“jobs”).StringValue + EndOfLine
Rs.MoveNext
Loop Until Rs.EOF=True
End If
Rs.Close
Rs=nil

TxtTrabajo.Append “>”+Rs.Field(“userid”).StringValue + …

.Text = replace previous contents of the field
.Append = add to the contents of the field

Thanks