Importing data from a MySQL database

[Romulo Avila]

Good Morning,
I need a help, I have a routine that searches the data on a MySQL database, the routine is bringing the data but I have 03 columns that are values ​​and when it is imported into EXCEL this is brought as text, what can I do to solve it.


** the columns that I need to return in values ​​are highlighted in the imageCapturar.jpg


Thank you

[Bob Phillips]

Does casting it work?

Activesheet.Range("D" & I).Value = CInt(gRs!Valor)

or

Activesheet.Range("D" & I).Value = CDbl(gRs!Valor)