try like
Code:
objXLSheet.Cells(RowStart, ColumnStart) =  rsTmp.Fields( i)