'Returns a list with the contact's addresses.
Public Sub GetAddress(id As Long) As List
Dim raw As List = GetData("vnd.android.cursor.item/postal-address_v2", Array As String("data1", "data4", "data10", "data7"), id, Null)
Dim res As List
res.Initialize
For Each row() As Object In raw
res.Add(row(0))
Next
Return res
End Sub