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