sub lastRowNum
{
    my ( $dbh, $key_fld, $table ) = @_;
    my ( $last_id ) = $dbh->selectrow_array( "select max($key_fld) from $table" );
    return $last_id;
}