Sub DB_getLastRow(TableName As String, field As String, order As String) As List
Dim Cursor As ResultSet
Dim result As List
result.Initialize
Cursor = SQL_BBDD.ExecQuery2($"SELECT ${field} FROM ${TableName} ORDER BY ${order} DESC LIMIT 1"$, Null)
Do While Cursor.NextRow
If Cursor.GetString(field).Contains("000001") = false Then
Exit
End If
Loop
result.Add(Cursor.GetString(field))
Cursor.Close
Return result
End Sub