Type MyDataType (AccountId As String, Field1 As String, Field2 As Int, Field3 As Double)
B4X:
Sub AddItemToMap(AccountId As String, Field1 As String, Field2 As Int, Field3 As Double)
dim mt As MyDataType
mt.Initialize
mt.AccountId = AccountId
mt.Field1 = Field1
...
map.Put(AccountId, mt)
End Sub