Bob do you think that he means something like this?
iRow = 2
iCol = 1
Do While (Not rs.EOF)
For Each fld In rs.Fields
If fld.Value < "" Then
Cells(iRow, iCol) = fld.Value
iCol = iCol + 1
iRow= iRow+ 1
End If
Next
rs.MoveNext
Loop

"Bob Phillips" wrote:

i = 1
rs.MoveFirst
Do While Not rs.EOF

If rs.Fields(1) < "" Then

Cells(i, i).Value = rs.Fields(1)
i = i + 1
End If
rs.movenext
Loop


--
__________________________________
HTH

Bob

"JT" wrote in message
...
I am using ADO to create a recordset from an Access Database

The recordset has 10 fields. Not all 10 fields have a value.

I would like to place the first field with a value in row 1, column 1 and
the second field with a value in row 2, column 2

Any suggestions or sample code to accomplish this would be greatly
appreciated. Thanks for the help...

--
JT