dim sqlcol as long
reDim Ordered(sqlcol) As Integer