Public Sub GetKG(user As String, key As String) As Map
Dim rs As ResultSet = sql.ExecQuery2("SELECT value FROM data WHERE user = ? AND key = ?", Array(user, key))
Do While rs.NextRow
Dim KGMap As Map
KGMap.Initialize
KGMap = serializator.ConvertBytesToObject(rs.GetBlob("value"))
Loop
rs.Close
Return KGMap
End Sub