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