ADOX character format

[simoncpage]

I am using the following sub to create a table in an access database, however some of the figures in my database need to formated. i.e 10,000 rather than 10000

basically what are the other commands other than adVarWChar that I am using, to format text into a table?

Any help would be great!

---------------------------------------------
Dim catDB As ADOX.Catalog
Dim tblNew As ADOX.Table
Dim i As Integer

Set catDB = New ADOX.Catalog
catDB.ActiveConnection _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath

Set tblNew = New ADOX.Table.
With tblNew
.Name = "Hello"
With .Columns

For i = 0 To (findlastreviewsrow() - 2)

.Append "" & Range("topleft&quot.Offset(0, i).Value & _
"", adVarWChar

...etc

-----------------------------------------------------