Type MyMessage (Befehl As String, DatenS As String, DatenL As List, DatenM As Map,Success As Boolean)
Private mm_out As MyMessage
Private m_tmp As Map
m_tmp.Initialize
do....
m_tmp.Put(k,DBUtils.ExecuteMemoryTable(SQL_I,"SELECT * FROM Log",Null,0,0)) 'or with WHERE'
loop
mm_out.DatenM = m_tmp 'mm_out is send via B4XSerializator to the Android Device