Call to .CopyFromRecordSet corrupts formatting in a different worksheet

[ijourneaux]

I have queried a SQL database to get a recodset

    cnn.Open ConnectionString
    cnn.CommandTimeout = 900
    rst.Open StrQuery, cnn

My orignal attempt to write the data to a worksheet was

   ThisWorkbook.Worksheets("RMS Data").Range("A2").CopyFromRecordset rst
   fldCount = rst.Fields.Count
   rst.MoveFirst
   recArray = rst.GetRows

When the command .CopyFromRecordset is executed, the cell formatting a some cells in another worksheet is unexpectedly changed from Number to Date.

   fldCount = rst.Fields.Count
    Set rngDst = ThisWorkbook.Worksheets("RMS Data").Range("A2")

    With rst
        If Not .BOF And Not .EOF Then
            .MoveFirst
            While Not .EOF
                For i = 0 To .Fields.Count - 1
                    rngDst.Offset(, i) = .Fields(i).value
                Next i
                rst.MoveNext
                Set rngDst = rngDst.Offset(1)
            Wend
        End If
    End With

Works without corrupting the other worksheet. Anyone have any thoughts on what might be happening when using .CopyFromRecordset?

 

[CSmith]

Example?

When the command .CopyFromRecordset is executed, the cell formatting a some cells in another worksheet is unexpectedly changed from Number to Date.

If the above works, why not just fix the formatting?

 

[ijourneaux]

Unfortunately everytime this line is executed, the formating get changed. FOr now I moved away from CopyFromRecordSet but this is a very particular error.

   ThisWorkbook.Worksheets("RMS Data").Range("A2").CopyFromRecordset rst