'PhoneTypeIndex = the index number of the phone type
'"1" = "home"
'"2" = "mobile"
'"3" = "work"
'("4" = "fax_work"
'"5" = "fax_home"
'"6" = "pager"
'"7" = "other"
'"8" = "callback"
'"9" = "car"
'"10" = "company_main"
'"11" = "isdn"
'"12" = "main"
'"13" = "other_fax"
'"14" = "radio"
'"15" = "telex"
'"16" = "tty_tdd"
'"17" = "work_mobile"
'"18" = "work_pager"
'"19" = "assistant"
'"20" = "mms")
Public Sub SetPhone(Id As Long, PhoneNumber As String, PhoneTypeIndex As String)
Dim values As ContentValues
values.Initialize
values.PutString("data1", PhoneNumber)
values.PutString("data2", PhoneTypeIndex)
SetData("vnd.android.cursor.item/phone_v2", values, Id, True)
End Sub