Yo tambien tuve problemas con el bookmark lo que hice fue una copia del recordset asi:
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
luego:
Set rs1 = New ADODB.Recordset
rs1.Open sentencia, cn, adOpenStatic, adLockBatchOptimistic, adCmdText
Set rs2 = rs1.Clone
cn es mi conexion ado
sentencia es la intriccion SQL para llenar el grid
y despues ya solo usaba la copia de rs1 (rs2) en tu caso:
Label2.caption=datagrid1.columns(0).callvalue(Rs2. Bookmark)
intenta con esto aver si te funciona ya que yo lo use para el true dbgrid espero que sea lo mismo.