12-12-2009, 02:00 AM
First of all to save some time not sure how much.
instead of
I would do
Second have arrColName(intColumn) as a string instead of a number.
So if I knew this was a number this is what I suggest doing, though I'm really not sure what you are trying to accomplish. Note, if this value happens to not be a number this will still fail.
instead of
Code:
For intColumn = 0 To FieldsCount
ReDim Preserve arrColName(intColumn)
I would do
Code:
ReDim arrColName(FieldsCount)
For intColumn = 0 To FieldsCount
Second have arrColName(intColumn) as a string instead of a number.
So if I knew this was a number this is what I suggest doing, though I'm really not sure what you are trying to accomplish. Note, if this value happens to not be a number this will still fail.
Code:
arrRowVal( CInt(arrColName(intColumn)))= strColumnValue