You don't really have use MoveFirst but that's ok. Place a breakpointer on this line:
strData = strData & OraRec.Fields(i).Value & vbTab
to see if strData has any value in it.