Dim rsData As ADODB.Recordset

Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Grid1.PointAt(X, Y) = dbgAtDataArea Then
      If Grid1.ColContaining(X) =  2  Then
         CicleClickedIcon Grid1.RowBookmark(Grid1.RowContaining(Y))
      End If
   End If
End Sub

Private Sub CicleClickedIcon(ByVal Bookmark As Variant)
   Dim rs As ADODB.Recordset
   Set rs = rsData.Clone
   rs.Bookmark = Bookmark
   rs( 2 ) = rs( 2 ) +  1 
   If rs( 2 ) >  3  Then rs( 2 ) =  1 
   Grid1.RefreshRow Bookmark
End Sub

Select case rs( 0 )
  case "?"
    rs( 0 ) = "-"
  case "-"
    rs( 0 ) = "+"
  case "+"
    rs( 0 ) = "?"
end select