alguien podria decirme porqe no funciona esto?

[deivis2011]

creo qe tiene logica no? ...o me equivoco
esto si funciona:
Dim obj As String = ""
For gv As Integer = 0 To GViewDatos.Rows.Count - 1
obj = GViewDatos.Rows(gv).Cells(1).Text + "," + obj

Next
pero yo quiero esto con los apostrofes:
Dim obj As String = ""
For gv As Integer = 0 To GViewDatos.Rows.Count - 1
obj = GViewDatos.Rows(gv).Cells(1).Text + " ',' " + obj

Next

ya prove haciendo esto y tampoco me sale:
Dim cad_obj = Replace(obj, ",", " ',' ")

que hai de malo en el apostrofe?????

yo quiero este resultado: '1857426','1655437','1384815','686029','158984'

y si alguien me ayudara de otra manera, gracias =)