Public Sub SetGroup(Id As Long, GroupID As Int)
Dim values As ContentValues
values.Initialize
values.PutInteger("data1", GroupID)
SetData("vnd.android.cursor.item/group_membership", values, Id, False)
End Sub
cu.SetGroup(myID, groupID)
Did you see this post: http://www.b4x.com/android/forum/th...ess-to-the-stored-contacts.30824/#post-191366
Maybe you need something similar